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1. INTRODUCTION 

The standard CP/M system assumes operation on an Intel MDS-800 
microcomputer development system, but is designed so that the user can 
alter a specific set of subroutines which define the hardware 
operating environment. In this way, the user can produce a diskette 
which operates with any IBM-3741 format compatible drive controller 
and other peripheral devices. 

Altnough standard CP/M 2.0 is configured for single density floppy 
disks, field-alteration features allow adaptation to a wide variety of 
disk subsystems from single drive minidisks through high-capacity 
"hard disk" systems. In order to simplify the following adaptation 
process, we assume that CP/M 2.0 will first be configured for single 
density floppy disks where minimal editing and debugging tools are 
available. If an earlier version of CP/M is available, the 
customizing process is eased considerably. In this latter case, you 
may wish to briefly review the system generation process, and skip to 
later sections which discuss system alteration for non-standard disk 
systems. 

In order to achieve device independence, CP/M is separated into 
three distinct modules: 

BIOS - basic I/O system which is environment dependent 
BDOS - basic disk operating system which is not dependent 

upon the hardware configuration 
CCP - the console command processor which uses the BDOS 

Of these modules, only the BIOS is dependent upon the particular 
hardware. That is, the user can "patch" the distribution version of 
CP/M to provide a new BIOS which provides a customized interface 
between the remaining CP/M modules and the user's own hardware system. 
The purpose of this document is to provide a step-by-step procedure 
for patching your new BIOS into CP/M. 

If CP/M is being tailored to your computer system for the first 
time, the new BIOS requires some relatively simple software 
development and testing. The standard BIOS is listed in Appendix B, 
and can be used as a model for the customized package. A skeletal 
version of the BIOS is given in Appendix C which can serve as the 
basis for a modified BIOS. In addition to the BIOS, the user must 
write a simple memory loader, called GETSYS, which brings the 
operating system into memory. In order to patch the new BIOS into 
CP/M, the user must write the reverse of GETSYS, called PUTSYS, which 
places an altered version of CP/M back onto the diskette. PUTSYS can 
be derived from GETSYS by changing the disk read commands into disk 
write commands. Sample skeletal GETSYS and PUTSYS programs are 
described in Section 3, and listed in Appendix D. In order to make 
the CP/M system work automatically, the user must also supply a cold 
start loader, similar to the one provided with CP/M (listed in 
Appendices A and B) . A skeletal form of a cold start loader is given 
in Appendix E which can serve as a model for your loader. 
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2. FIRST LEVEL S^iTSTEM REGENERATION 

The procedure to follow to paten the CP/M system is given below in 
several steps. Address references in each step are shown with a 
following "H'* which denotes the hexadecimal radix, and are given for a 
20K CP/M system. For larger CP/M systems, add a "bias" to each 
address which is shown with a "+b" following it, where b is equal to 
the memory size - 20K. Values for b in various standard memory sizes 
are 



24K: 


b = 24K - 


20K = 


4K = 1000H 


32K: 


b = 32K - 


20K = 


12K = 3000H 


40K 


: b = 40K - 


20K = 


20K = 5000H 


4 8K 


: b = 48K - 


20K = 


28K = 7000H 


5 6K 


: b = 56K - 


20K = 


36K = 9000H 


62K 


: b = 62K - 


20K = 


42K = A800H 


64K 


: b = 64K - 


20K = 


44K = B000H 



Note: The standard distribution version of CP/M is set for 
operation within a 20K memory system. Therefore, you must first bring 
up the 20K CP/M system, and then configure it for your actual memory 
size (see Second Level System Generation) . 

(1) Review Section 4 and write a GETSYS program which reads the 
first two tracks of a diskette into memory. The data from the diskette 
must begin at location 3380H. Code GETSYS so that it starts at 
location 100ri (base of the TPA) , as shown in the first part of 
Appendix d. 



(2) Test the GETSYS program by reading a blank 
memory, and check to see that the data has been read properly, and 
that the diskette has not been altered in any way by 
program. 



diskette into 
the GETSYS 



(3) Run the GETSYS program using an initialized CP/M diskette to 
see if GETSYS loads CP/M starting at 3380H (the operating system 
actually starts 128 bytes later at 3400H) . 

(4) Review Section 4 and write the PUTSYS program which writes 
memory starting at 3380H back onto the first two tracks of the 
diskette. The PUTSYS program should be located at 200H, as shown in 
the second part of Appendix D. 

(5) Test the PUTSYS program using a blank uninitialized diskette 
by writing a portion of memory to the first two tracks; clear memory 
and read it back using GETSYS. Test PUTSYS completely, since this 
program will be used to alter CP/M on disk. 



Study Sections 5, 6, and 7, along with the distribution 
of the BIOS given in Appendix B, and write a 



(6) 
version of the BIOS qiven in Appendix B, and write a simple version 

)nment. Use 
:0S by the 
BIOS) . Implement only the primitive disk 
operations on a single drive, and simple 
functions in this phase. 



vtJLtDiuii uj_ tilt: Diu^ yxven in appeiiuix a, anu wrice a s im^ 
which performs a similar function for the customized enviror 
the program given in Appendix C as a model. Call this new BI 

v.^m« r-nrr^c / ^,, r. 4-^r^ -: ™^^ oTr^ox t 1 *. — ^^y ^^le prim 

console input/output 



name CBIOS (customized 
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(7) Test CBIOS completely to ensure that it properly perforins 
console character I/O and disk reads and writes. Be especially 
careful to ensure that no disk write operations occur accidently 
during read operations, and check that the proper track and sectors 
are addressed on all reads and writes. Failure to make these checks 
may cause destruction of the initialized CP/M system after it is 
patched. 

(8) Referring to Figure 1 in Section 5, note that the 3I0S is 
placed between locations 4A00H and 4FFFH. Read the CP/M system using 
GETSYS and replace the BIOS segment by the new CBIOS developed in step 
(6) and tested in step (7) . This replacement is done in the memory of 
the machine, and will be placed on the diskette in the next step. 

(9) Use PUTSYS to place the patched memory image of CP/M onto the 
first two tracks of a blank diskette for testing. 

(10) Use GETSYS to bring the copied memory image from the test 
diskette back into memory at 3380H, and check to ensure that it has 
loaded back properly (clear memory, if possible, before the load). 
Upon successful load, brancn to the cold start code at location 4A00H. 
The cola start routine will initialize page zero, then jump to the CCP 
at location 3400H which will call the BDOS, which will call the CBIOS. 
The CBIOS will be asked by the CCP to read sixteen sectors on track 2, 
and if successful, CP/M will type "A>'\ the system prompt. 

When you make it this far, you are almost on the air. If you have 
trouble, use whatever debug facilities you have available to trace and 
breakpoint your CBIOS. 

(11) Upon completion of step (10) , CP/M has prompted the console 
for a command input. Test the disk write operation by typing 

SAVE 1 X.COM 
(recall that all commands must be followed by a carriage return). 
CP/M should respond with another prompt (after several disk accesses) : 

A> 
If it does not, debug your disk write functions and retry. 

(12) Then test the directory command by typing 
DIR 

CP/M should respond with 
A: X COM 

(13) Test tne erase command by typing 
ERA X.COM 
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CP/M should respond with the A prompt. When you make it this far, you 
should have an operational system which will only require a bootstrap 
loader to function completely. 

(14) Write a bootstrap loader which is similar to GETSYS, and 
place it on track 0, sector 1 using PUTSYS (again using the test 
diskette, not the distribution diskette). See Sections 5 and 8 for 
more information on the bootstrap operation. 

(15) Retest the new test diskette with the bootstrap loader 
installed by executing steps (11) , (12) , and (13) . Upon completion of 
these tests, type a control-C (control and C keys simultaneously) . The 
system should then execute a "warm start" which reboots the system, 
and types the A prompt, 

(16) At this point, you probably have a good version of your 
customized CP/M system on your test diskette. Use GETSYS to load CP/M 
from your test diskette. Remove the test diskette, place the 
distribution diskette (or a legal copy) into the drive, and use PUTSYS 
to replace the distribution version by your customized version. Do 
not make this replacement if you are unsure of your patch since this 
step destroys the system which was sent to you from Digital Research. 

(17) Load your modified CP/M system and test it by typing 

DIR 

CP/M should respond with a list of files which are provided on the 
initialized diskette. One such file should be the memory image for 
the debugger, called DDT.COM. 

lMOTE: from now on, it is important that you always reboot tne CP/M 
system (ctl-C is sufficient) when the diskette is removed and replaced 
by anotner diskette, unless the new diskette is to be read only. 

(18) Load and test the debugger by typing 

DDT 

(see the document "CP/M Dynamic Debugging Tool (DDT)*' for operating 
procedures. You should take tne time to become familiar with DDT, it 
will be your best friend in later steps. 

(19) Before making further CBIOS modifications, practice using 
the editor (see the ED user's guide), and assembler (see the ASM 
user's guide). Then recede and test the GETSYS, PUTSYS, and CBIOS 
programs using ED, ASM, and DDT. Code and test a COPY program which 
does a sector-to-sector copy from one diskette to another to obtain 
back-up copies of the original diskette (NOTE: read your CP/M 
Licensing Agreement; it specifies your legal responsibilities when 
copying the CP/M system). Place the copyright notice 

Copyright (c) , 1979 
Digital Research 
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on each copy which is made with your COPY program. 

(20) Modify your CBIOS to include the extra functions for 
punches, readers, signon messages, and so-forth, and add the 
facilities for a additional disk drives, if desired. You can make 
these changes with the GETSYS and PUTSYS programs which you have 
developed, or you can refer to the following section, which outlines 
CP/M facilities which will aid you in the regeneration process. 

You now have a good copy of the customized CP/M system. Note that 
although the CBIOS portion of CP/M which you have developed belongs to 
you, the modified version of CP/M which you have created can be copied 
for your use only (again, read your Licensing Agreement) , and cannot 
be legally copied for anyone else's use. 

It should be noted that your system remains file-compatible with all 
other CP/M systems, (assuming media compatiblity , of course) which 
allows transfer of non-proprietary software between users of CP/M. 
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3. SECOND LEVEL SYSTEM GENERATION 

Now that yo^ have the CP/M system running, you will want to 
configure CP/M for your memory size. In general, you will first get a 
memory image of CP/M with the "MOVCPM" program (system relocator) and 
place this memory image into a named disk file. The disk file can then 
be loaded, examined, patched, and replaced using the debugger, and 
system generation program. For further details on the operation of 
these programs, see the "Guide to CP/M Features and Facilities" 
manual, 

Your CBIOS and BOOT can be modified using ED, and assembled using 
ASM, producing files called CBIOS. HEX and BOOT. HEX, which contain the 
machine code for CBIOS and BOOT in Intel hex format. 

To get the memory image of CP/M into the TPA configured for the 
desired memory size, give the command: 

MOVCPM XX * 

where "xx" is the memory size in decimal K bytes (e.g. , 32 for 32K) . 
The response will be: 

CONSTRUCTING xxK CP/M VERS 2,0 
READY FOR "SYSGEN" OR 
"SAVE 34 CPMxx.COM" 



At this point, an image of a CP/M in the TPA configured for the 
requested memory size. The memory image is at location 0900H through 
227Fri, (i.e.. The BOOT is at 0900H, the CCP is at 980H, the BDOS 
starts at 1180H, and the BIOS is at 1F80H.) Note that the memory 
image has tht- standard MDS-800 BIOS and BOOT on it. It is now 
necessary to save the memory image in a file so that you can patch 
your CBIOS and CBOOT into it: 

SAVE 3 4 CPMxx.COM 

The memory image created by the "MOVCPM'' program is offset by a 
negative bias so that it loads into the free area of the TPA, and thus 
does not interfere with the operation of CP/M in higher memory. This 
memory image can be subsequently loaded under DDT and examined or 
changed in preparation for a new generation of the system. DDT is 
loaded with the memory image by typing: 



DDT CPMxx.COM 



Load DDT, then read the CPM 
image 



DDT should respond with 

NEXT PC 
2300 0100 

(The DDT prompt) 

You can then use the display and disassembly commands to examine 
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portions of the memory image between 900H and 227FH. Note, however, 
that to find any particular address within the memory image, you must 
apply the negative bias to the CP/M address to find the actual 
address. Track 00, sector 01 is loaded to location 900H (you should 
find the cold start loader at 900H to 97FH) , track 00, sec. :>r 02 is 
loaded into 980H (this is the base of the CCP) , and so-forth through 
the entire CP/M system load. In a 20K system, for example, the CCP 
resides at the CP/M address 3400H, but is placed into memory at 980H 
by the SYSGEN program. Thus, the negative bias, denoted by n, 
satisfies 

3400H + n = 980H, or n = 980H - 3400F 

Assuming two's complement arithmetic, n = D580H, which can be checked 
by 

3400H + D580H = 10980H = 0980H ( ignor ing • high-order 

overflow) . 

Note that for larger systems, n satisfies 

(3400H+b) + n = 980H, or 
n = 980H - (3400H + b) , or 
n = D580H - b. 

The value of n for common CP/M systems is given below 

memcy size 

20K 
24K 
32K 
4 0K 

4 8K 

5 6K 
62K 

6 4K 

Assume, for example, that you want to locate the address x within the 
memory image loaded under DDT in a 20K system. First type 

Hx,n He;:adecimal sum and difference 

and DDT will respond with the value of x+n (sum) and x-n (difference) . 
The first number printed by DDT will be the actual memory address in 
the image where the data or code will be found. The input 

H3400,D580 

for example, will produce 980H as the sum, which is where the CCP is 
located in the memory image under DDT. 

Use the L command to disassemble portions the BIOS located at 
(4A00H+D)-n which, when you use the H command, produces an actual 
address of 1F80H. The disassembly command would thus be 

(All Information Contained Herein is Proprietary to Digital Research.) 

7 



ias b 


negative offset n 


0000H 


D580H - 


0000H = D580H 


1000H 


D580H - 


1000H = C580H 


3000H 


D580H - 


3000H = A580H 


5000H 


D580H - 


5000H = 8580H 


7000H 


D580H - 


7000H = 6580H 


9000H 


D580H - 


9000H = 4580li 


A800H 


D580H - 


A800H = 2D80H 


B000H 


D580H - 


B000H = 2580H 



L1F80 

It is now necessary to patch in your CBOOT and CBIOS routines. The 
BOOT resides at location 0900H in the memory image. If the actual 
load address is "n", then to calculate the bias (m) use the command: 

H900,n Subtract load address from 

target address. 

The second number typed in response to the command is the desired bias 
(m) . For example, if your BOOT executes at 0080H, the command: 

H900,d0 

will reply 

0980 0880 Sum and difference in hex. 

Therefore, the bias "m** would be 0880H. To read-in the BOOT, give the 
command: 



ICBOOT.HEX Input file CBOOT. HEX 



Then 



Rm Read CBOOT with a bias of 

m (=900H-n) 

You may now examine your CBOOT with: 

L900 

We are now ready to replace the CBIOS. Examine the area at 1F80H 
where the original version of the CBIOS resides. Then type 

ICBIOS.HEX Ready the "hex" file for loading 

assume that your CBIOS is being integrated into a 20K CP/M system, and 
thus is origined at location 4A00H. In order to properly locate the 
CBIOS in the memory image under DDT, we must apply the negative bias n 
for a 20K system when loading the hex file. This is accomplished oy 
typing 

RD580 Read the file with bias D580H 

Upon completion of the read, re-examine the area where the CBIOS has 
been loaded (use an "L1F80'* command) , to ensure that is was loaded 
properly. V^hen you are satisfied that the change has been made, 
return from DDT using a control-C or "G0" command. 

Now use SYSGEN to replace the patched memory image back onto a 
diskette (use a test diskette until you are sure of your patch) , as 
shown in the following interaction 
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SYSGEN 

SYSGEN VERSION 2. 

SOURCE DRIVE NAME 



Start the SYSGEN program 
Sign-on message from SYSGEN 
(OR RETURN TO SKIP) 

Respond with a carriage return 
to skip the CP/M read operation 
since the system is already in 
memory. 

DESTINATION DRIVE NAME (OR RETURN TO REBOOT) 

Respond with "B" to write the 
new system to the diskette in 
drive B. 

DESTINATION ON B, THEN TYPE RETURN 

Place a scratch diskette in 
drive B, then type return. 



FUNCTION COMPLETE 
DESTINATION DRIVE 



NAME (OR RETURN TO REBOOT) 



Place the scratch diskette in your drive A, and then perform a 
coldstart to bring up the new CP/M system you have configured. 

Test the new CP/M system, and place the Digital Research copyright 
notice on the diskette, as specified in your Licensing Agreement: 



Copyright (c) , 1979 
Digital Research 



4, SAMPLE GETSYS AND PUTSY3 PROGRAMS 



The following program provides a framework for the GETSYS and 
PUTSYS programs referenced in Section 2. The READSEC and WRITESEC 
subroutines must be inserted by the user to read and write the 
specific sectors. 

GETSYS PROGRAM - READ TRACKS AND 1 TO MEMORY AT 3 3 80H 

USE 
(SCRATCH REGISTER) 
TRACK COUNT (0, 1) 
SECTOR COUNT (1,2,. ..,26) 
(SCRATCH REGISTER PAIR) 
LOAD ADDRESS 
SET TO STACK ADDRESS 

SET STACK POINTER TO SCRATCH AREA 

SET BASE LOAD ADDRESS 

START WITH TRACK 

READ NEXT TRACK (INITIALLY 0) 

READ STARTING WITH SECTOR 1 

READ NEXT SECTOR 

USER-SUPPLIED SUBROUTINE 

MOVE LOAD ADDRESS TO NEXT 1/2 PAGE 

HL = HL + 128 

SECTOR = SECTOR + 1 

CHECK FOR END OF TRACK 

CARRY GENERATED IF SECTOR < 27 

ARRIVE HERE AT END OF TRACK, MOVE TO NEXT TRACK 
INR B 

MOV A,B ;TEST FOR LAST TRACK 

CPI 2 
JC RDTRK ; CARRY GENERATED IF TRACK < 2 

ARRIVE HERE AT END OF LOAD, HALT FOR NOW 
HLT 

9 

; USER-SUPPLIED SUBROUTINE TO READ THE DISK 
READSEC: 

; ENTER WITH TRACK NUMBER IN REGISTER B, 
SECTOR NUMBER IN REGISTER C, AND 
; ADDRESS TO FILL IN HL 



GE' 


rsYS PI 


WGRAM - 


REGISTER 






A 






B 






C 






DE 






HL 






SP 




START: 


LXI 


SP,3380H 




LXI 


H, 3380H 




MVI 


B, 


RDTRK: 








MVI 


c,i 


RDSEC: 








CALL 


READSEC 




LXI 


D,128 




DAD 


D 




INR 


C 




MOV 


A,C 




CPI 


27 




JC 


RDSEC 



PUSH 
PUSH 



;SAVE B AND C REGISTERS 
;SAVE HL REGISTERS 



perform disk read at this point, branch to 
label START if an error occurs 



POP 


H 


POP 


B 


RET 





; RECOVER HL 

; RECOVER B AND C REGISTERS 

;BACK TO MAIN PROGRAM 

END START 
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Note that this program is assembled and listed in Appendix C for 
reference purposes, with an assumed origin of 100H. The hexadecimal 
operation codes which are listed on the left may be useful if the 
program has to be entered through yo^^^ machine's front panel switches. 

The PUTSYS program can be constructed from GETS!^S by changing only 
a few operations in the GETSYS program given above, as shown in 
Appendix D. The register pair HL become the dump address (next 
address to write) , and operations upon these registers do not change 
within the program. The READSEC subroutine is replaced by a WRITESEC 
subroutine which performs the opposite function: data from address HL 
is written to the track given by register B and sector given by 
register C. It is often useful to combine GETSYS and PUTSYS into a 
single program during the test and development phase, as shown in the 
Appendix. 
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5, DISKETTE ORGANIZATION 

The sector allocation for the standard distribution version of 
CP/M is given here for reference purposes. The first sector (see 
table on the following page) contains an optional software boot 
section. Disk controllers are often set up to bring track 0, sector 1 
into memory at a specific location (often location 0000H) . The 
program in this sector, called BOOT, has the responsibility of 
bringing the remaining sectors into memory starting at location 
3400H+b. If your controller does not have a built-in sector load, you 
can ignore the program in track 0, sector 1, and begin the load from 
track sector 2 to location 3400H+b. 



As an example, the Intel MDS-800 hardware cold start loader brings 
track 0, sector 1 into absolute address 3000H. Upon loading this 
sector, control transfers to location 3000H, where the bootstrap 
operation commences by loading the remainder of tracks 0, and all of 
track 1 into memory, starting at 3400H+b. The user should note that 
this bootstrap loader is of little use in a non-MDS environment, 
although it is useful to examine it since some of the boot actions 
will have to be duplicated in your cold start loader. 
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Track# Sector* 
00 01 



Page# 



Memory Address 
(boot address) 



CP/M Module name 
Cold Start Loader 



00 


02 


00 


3400H+b 


CCP 


•1 


03 


II 


3480H+b 


il 


i< 


04 


01 


3500H+b 


ir 


il 


05 


•1 


3580H+b 


II 


•• 


06 


02 


3600H+b 


11 


It 


07 


II 


3680H+b 


ii 


11 


08 


03 


3700H+b 


•1 


•1 


09 


II 


3780H+b 


•1 


il 


10 


04 


3800H+b 


<• 


• • 


11 


II 


3880H+b 


II 


if 


12 


05 


3900H+b 


tl 


>t 


13 


II 


3980H+b 


II 


H 


14 


06 


3A0 0H+b 


•1 


it 


15 


II 


3A80H+b 


• i 


il 


16 


07 


3B00H+b 


" 


00 


17 


II 


3B80H+b 


CCP 


00 


18 


08 


3C00H+b 


BDOS 


• 1 


19 


•1 


3C80H+b 


II 


" 


20 


09 


3D00H+b 


II 


li 


21 


H 


3D80H+b 


ii 


• 1 


22 


10 


3E00H+b 


II 


• t 


23 


II 


3E80H+b 


li 


• t 


24 


11 


3F00H+b 


II 


It 


25 


II 


3F80H+b 


II 


il 


26 


12 


4000H+b 


II 


01 


01 


II 


4080H+b 


tl 


II 


02 


13 


4l00H+b 


• 1 


)« 


03 


li 


4180H+b 


II 


11 


04 


14 


4200H+b 


M 


■ 1 


05 


• 1 


4280H+b 


• 1 


• * 


06 


15 


4300H+b 


• 1 


tl 


07 


• 1 


4380H+b 


II 


• • 


08 


16 


4400H+b 


i* 


It 


09 


•I 


4480H+b 


• 1 


il 


10 


17 


4500H+b 


II 


il 


11 


If 


4580H+b 


II 


il 


12 


18 


4600H+b 


II 


• t 


13 


«• 


4680H+b 


II 


• « 


14 


19 


4700H+b 


II 


il 


15 


•1 


4780H+b 


il 


II 


16 


20 


4800H+b 


It 


II 


17 


•1 


4880H+b 


il 


• 1 


18 


21 


4900H+b 


il 


01 


19 


II 


4980H+b 


BDOS 


01 


20 


22 


4A00H+b 


BIOS 


•1 


21 


11 


4A80H+b 


II 


il 


23 


23 


4B00H+b 


tl 


•1 


24 


II 


4B80H+b 


II 


tl 


25 


24 


4C00H+b 


II 


01 


26 


II 


4C80H+b 


BIOS 


2-7 6 


01-26 




(directory and data) 


Information Contained Herein 


is Proprietary to 


Digital Researc 



(All 



6 



THE BIOS ENTRY POINTS 



The entry points 
are detailed below, 
located at 4A00H+b, 
The jump vector is a 
program control to 



into the 

Entry to 

as shown 

sequence 
the individual BIOS 
subroutines may be empty for certain functions (i.e. 
a single RET operation) during regeneration of CP/M, 



BIOS from the cold start loader and BDOS 

the BIOS is through a "jump vector" 

below (see Appendices B and C, as well). 

of 17 jump instructions which send 

subroutines. The BIOS 

they may contain 

but the entries 



must be present in the jump vector. 

The jump vector at 4A00H+b takes the form shown below, 
individual jump addresses are given to the left: 



where the 



4A00H+b 


J MP 


BOOT 


4A03H+b 


J MP 


WBOOT 


4A06H+b 


JMP 


CONST 


4A09H+b 


JMP 


CONIN 


4A0CH+b 


JMP 


CONOUT 


4A0FH+b 


JMP 


LIST 


4Al2H+b 


JMP 


PUNCH 


4Al5H+b 


JMP 


READER 


4Al8H+b 


JMP 


HOME 


4AlBH+b 


JMP 


SELDSK 


4A1EH+D 


JMP 


SETTRK 


4A2lH+b 


JMP 


SETSEC 


4A2 4H+b 


JMP 


SETDMA 


4A27H+b 


JMP 


READ 


4A2AH+b 


JMP 


WRITE 


4A2DH+b 


JMP 


LISTST 


4A30H+b 


JMP 


SECTRAN 



ARRIVE HERE FROM COLD START LOAD 

ARRIVE HERE FOR WARM START 

CHECK FOR CONSOLE CHAR READY 

READ CONSOLE CHARACTER IN 

VmiTE CONSOLE CHARACTER OUT 

WRITE LISTING CHARACTER OUT 

WRITE CHARACTER TO PUNCH DEVICE 

READ READER DEVICE 

MOVE TO TRACK 00 ON SELECTED DISK 

SELECT DISK DRIVE 

SET TRACK NUMBER 

SET SECTOR NUMBER 

SET DMA ADDRESS 

READ SELECTED SECTOR 

WRITE SELECTED SECTOR 

RETURN LIST STATUS 

SECTOR TRANSLATE SUBROUTINE 



Each jump address corresponds to a particular subroutine which 
performs the specific function, as outlined below. There are three 
major divisions in the jump table: the system (re) initialization 
which results from calls on BOOT and WBOOT, simple character I/O 
performed by calls on CONST, CONIN, CONOUT, LIST, PUNCH, READER, and 
LISTST, and diskette I/O performed by calls on HOME, SELDSK, SETTRK, 
SETSEC, SETDMA, READ, WRITE, and SECTRAN. 

All simple character I/O operations are assumed to be performed in 
ASCII, upper and lower case, with high order (parity bit) set to zero. 
An end-of-file condition for an input device is given by "" ----- 
control-z (lAH) . Peripheral devices are seen by CP/M as 
devices, and are assigned to physical devices within the BIOS. 



an ASCII 
logical" 



In order to operate, the BDOS needs only the CONST, CONIN, and 
CONOUT subroutines (LIST, PUNCH, and READER may be used by PIP, but 
not the BDOS) . Further, the LISTST entry is used currently only by 
DESPOOL, and thus, the initial version of CBIOS may have empty 
subroutines for the remaining ASCII devices. 
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The characteristics of each device are 

CONSOLE The principal interactive console which communicates 
with' the operator, accessed through CONST, CGNIN, and 
CONOUT. Typically, the CONSOLE is a device such as a 
CRT or Teletype. 

LIST The principal listing device, if it exists on your 
system, which is usually a hard-copy device, such as a 
printer or Teletype. 

PUNCH The principal tape punching device, if it exists, which 
is normally a high-speed paper tape punch or Teletype. 

READER The principal tape reading device, such as a simple 
optical reader or Teletype. 

Note that a single peripheral can be assigned as 
the LIST, PUNCH, and READER device simultaneously. If 
no peripheral device is assigned as the LIST, PUNCH, or 
READER device, the CBIOS created by the user may give 
an appropriate error message so that the system does 
not "hang" if the device is accessed by PIP or some 
other user program. Alternately, the PUNCH and LIST 
routines can just simply return, and the READER routine 
can return with a lAH (ctl-Z) in reg A to indicate 
immediate end-of-file. 

For added flexibility, the user can optionally 
implement the "lOBYTE" function which allows 
reassignment of physical and logical devices. The 
lOBYTE function creates a mapping of logical to 
physical devices which can be altered during CP/M 
processing (see the STAT command) , The definition of 
the lOBYTE function corresponds to the Intel standard 
as follows: a single location in memory (currently 
location 0003H) is maintained, called lOBYTE, which 
defines the logical to physical device mapping which is 
in effect at a particular time. The mapping is 
performed by splitting the lOBYTE into four distinct 
fields of two bits each, called the CONSOLE, READER, 
PUNCH, and LIST fields, as shown below: 

most significant least significant 

lOBYTE AT 0003H I LIST | PUNCH | READER I CONSOLE I 

bits 6,7 bits 4,5 bits 2,3 bits 0,1 

The value in each field can be in the range 0-3, 
defining the assigned source or destination of each 
logical device. The values which can be assigned to 
each field are given below 
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CONSOLE field (bits 0,1) 

- console is assigned to the console printer device (TTY:) 

1 - console is assigned to the CRT device (CRT:) 

2 - batch mode: use the READER as the CONSOLE input, 

and the LIST device as the CONSOLE output (BAT:) 

3 - user defined console device (UCl:) 

READER field (bits 2,3) 

- READER is the Teletype device (TT!^:) 

1 - READER is the high-speed reader device (RDR:) 

2 - user defined reader # 1 (URl:) 

3 - user defined reader # 2 (UR2:) 

PUNCH field (bits 4,5) 

- PUNCH is the Teletype device (TTY:) 

1 - PUNCH is the high speed punch device (PUN:) 

2 - user defined punch # 1 (UPl:) 

3 - user defined punch # 2 (UP2:) 

LIST field (bits 6,7) 

- LIST is the Teletype device (TTY:) 

1 - LIST is the CRT device (CRT:) 

2 - LIST is the line printer device (LPT:) 

3 - user defined list device (ULl:) 

Note again that the implementation of the lOBYTE is 
optional, and affects only the organization of your 
CBIOS. No CP/E^ systems use the lOBYTE (although they 
tolerate the existence of the lOBYTE at location 
0003H) , except for PIP which allows access to the 
physical devices, and STAT which allows 
logical-physical assignments to be made and/or 
displayed (for more information, see the "CP/M Features 
and Facilities Guide"). In any case, the lOBYTE 
implementation should be omitted until your basic CBIOS 
is fully implemented and tested; then add the lOBYTE to 
increase your facilities. 

Disk I/O is always performed through a sequence of 
calls on the various disk access subroutines which set 
up the disk number to access, the track and sector on a 
particular disk, and the direct memory access (DMA) 
address involved in the I/O operation. After all these 
parameters have been set up, a call is made to the READ 
or WRITE function to perform the actual I/O operation. 
Note that there is often a single call to SELDSK to 
select a disk drive, followed by a number of read or 
write operations to the selected disk before selecting 
another drive for subsequent operations. Similarly, 
there may be a single call to set the DMA address, 
followed by several calls which read or write from the 
selected DMA address before the DMA address is changed. 
The track and sector subroutines are always called 
before the READ or WRITE operations are performed. 
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BOOT 



WBOOT 



Note tha 
perforin seve 
reporting th 
error conditi 
the error to 
not actually 
your control! 
that track 00 
and is often 
SETTRK with a 



t the READ a 
ral retries { 
e error condi 
on is returned 
the user. The 

perform the tr 
er characterist 

has been selec 
treated in exa 

parameter of 



nd WRITE routines should 
10 is standard) before 
tion to the BDOS. If the 
to the BDOS, it will report 
HOME subroutine may or may 
ack 00 seekr depending upon 
ics; the important point is 
ted for the next operation, 
ctly the same manner as 
0, 



The exact responsibilites 
subroutine are given below: 



of each entry point 



The BOOT entry poi 
loader and is r 
initialization, i 
(which can be omit 
lOBYTE function is 
point. The variou 
the WBOOT entry po 
is transferred t 
processing. Note 
select drive A. 



nt gets control 
esponsible f 
ncluding sendi 
ted in the firs 
implemented, i 
s system parame 
int must be ini 
o the CCP at 
that reg C must 



from the cold start 
or basic system 
ng a signon message 
t version) . If the 
t must be set at this 
ters which are set by 
tialized, and control 
3400H+b for further 

be set to zero to 



The WBOOT entry point gets control when a warm start 
occurs. A warm start is performed whenever a user 
program branches to location 0000H, or when the CPU is 
reset from the front panel. The CP/M system must be 
loaded from the first two tracks of drive A up to, but 
not including, the BIOS (or CBIOS, if you have 
completed your patch) . System parameters must be ini- 
tialized as shown below: 



CONST 



location 0,1,2 



location 3 



location 5,6,7 



CONIN 



set to JMP WBOOT for warm starts 
(0000H: JMP 4A03H+b) 

set initial value of lOBYTE, if 
implemented in your CBIOS 

set to JMP BDOS, which is the 
primary entry point to CP/M for 
transient programs. (0005H: JMP 
3C06H+b) 

(see Section 9 for complete details of page zero use) 
Upon completion of the initialization, the WBOOT 
program must branch to the CCP at 3400H+b to (re) start 
the system. Upon entry to the CCP, register C is set 
to the drive to select after system initialization. 

Sample the status of the currently assigned console 
device and return 0FFH in register A if a character is 
ready to read, and 00H in register A if no console 
characters are ready. 

Read the next console character into register A, and 
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CONOUT 



LIST 



PUNCH 



READER 



HOME 



SELDSK 



set the parity bit (high order bit) to zero. If no 
console character is readyr wait until a character is 
typed before returning. 



Send the character from 
output device. The ch 
order parity bit set to 
a time-out on a line fee 
console device requires 
of the line (such as a T 
can, if you wish, filte 
cause your console devic 
control-2 causes the Lea 
the screen, for examole) 



register C to the console 
aracter is in ASCII, with high 
zero. You may want to include 
d or carriage return, if your 

some time interval at the end 
I Silent 700 terminal) . You 
r out control characters which 
e to react in a strange way (a 
r Seigler terminal to clear 



Send the character from register C to the currently 
assigned listing device. The character is in ASCII 
with zero parity. 



Send the character from 
assigned punch device, 
zero parity. 



register C to the 
The character is in 



currently 
ASCII with 



Read the next character from the currently assigned 
reader device into register A with zero parity (high 
order bit must be zero) , an end of file condition is 
reported by returning an ASCII control-z (lAH) . 

Return the disk head of the currently selected disk 
(initially disk A) to the track 00 position. If your 
controller allows access to the track flag from the 
drive, step the head until the track flag is 
detected. If your controller does not support this 
feature, you can translate the HOME call into a call 
on SETTRK with a parameter of 0. 

Select the disk drive given by register C for further 
operations, where register C contains for drive A, 1 
for drive B, and so-forth up to 15 for drive P (the 
standard CP/M distribution version supports four 
drives) . On each disk select, SELDSK must return in 
HL the base address of a 16-byte area, called the Disk 
Parameter Header, described in the Section 10. For 
standard floppy disk drives, the contents of the 
header and associated tables does not change, and thus 
the program segment included in the sample CBIOS 
performs this operation automatically. If there is an 
attempt to select a non-existent drive, SELDSK returns 
HL=0000H as an error indicator. Although SELDSK must 
return the header address on each call, it is 
advisable to postpone the actual physical disk select 
operation until an I/O function (seek, read or write) 
is actually performed, since disk selects often occur 
without utimately performing any disk I/O, and many 
controllers will unload the head of the current disk 
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before selecting the new drive. This would 
excessive amount of noise and disk wear. 



cause an 



SETTRK 



SETSEC 



Register BC contains the track number for subsequent 
disk accesses on the currently selected drive. You 
can choose to seek the selected track at this time, or 
delay the seek until the next read or write actually 
occurs. Register BC can take on values in the range 
0-76 corresponding to valid track numbers for standard 
floppy disk drives, and 0-65535 for non-standard disk 
subsystems. 

Register BC contains the sector number (1 through 26) 
for subsequent disk accesses on the currently selected 
drive. !^ou can choose to send this information to the 
controller at this point, or instead delay sector 
selection until a read or write operation occurs. 



SETDMA 



Register 3C contains the DMA {disk memo 
address for subsequent read or write opera 
example, if B = 00H and C = 80H when SETDMA 
then all subsequent read operations read 
into 80H through 0FFH, and all subseq 
operations get their data from 80H through 
the next call to SETDMA occurs. The 
address is assumed to be 80H, iSlote 
controller need not actually support dir 
access. If, for example, all data is r 
sent through I/O ports, the CBIOS which you 
will use the 128 byte area starting at t 
DMA address for the memory buffer during th 
read or write operations. 



ry access) 
tions. For 
is called, 
their data 
uent write 
0FFH, until 
initial DMA 

that the 
ect memory 
eceived and 

construct 
he selected 
e following 



READ 



Assuming the drive has been selected, the track has 
been set, the sector has been set, and the DMA address 
has been specified, the READ subroutine attempts to 
read one sector based upon these parameters, and 
returns the following error codes in register A: 



no errors occurred 

non-recoverable error condition occurred 



WRITE 



Currently, CP/M responds only to a zero or non-zero 
value as the return code. That is, if the value in 
register A is then CP/M assumes that the disk 
operation completed properly. If an error occurs, 
however, the CBIOS should attempt at least 10 retries 
to see if the error is recoverable. When an error is 
reported the BDOS will print the message "BDOS ERR ON 
x: BAD SECTOR". The operator then has the option of 
typing <cr> to ignore the error, or ctl-C to abort. 

Write the data from the currently selected DMA address 
to the currently selected drive, track, and sector. 
The data should be marked as "non deleted data" to 
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maintain compatibility with other CP/M systems. The 
error codes given in the READ command are returned in 
register A, with error recovery attempts as described 
above. 

LISTST Return the ready status of the list device. Used by 
the DESPOOL program to improve console response during 
its operation. The value 00 is returned in A if the 
list device is not ready to accept a character, and 
0FFH if a character can be sent to the printer. Note 
that a 00 value always suffices. 

SECTRAN Performs sector logical to physical sector translation 
in order to improve the overall response of CP/M. 
Standard CP/M systems are shipped with a "skew factor" 
of 6, where six physical sectors are skipped between 
each logical read operation. This skew factor allows 
enough time between sectors for most programs to load 
their buffers without missing the next sector. In 
particular computer systems which use fast processors, 
memory, and disk subsystems, the skew factor may be 
changed to improve overall response. Note, however, 
that you should maintain a single density IBM 
compatible version of CP/M for information transfer 
into and out of your computer system, using a skew 
factor of 6. In general, SECTRAN receives a logical 
sector number in BC, and a translate table address in 
DE. The sector number is used as an index into the 
translate table, with the resulting physical sector 
number in HL. For standard systems, the tables and 
indexing code is provided in the CBIOS and need not be 
changed. 
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7. A SAMPLE BIOS 

The program shown in Appendix C can serve as a basis for your 
first BIOS. The simplest functions are assumed in this BIOS, so that 
you can enter it through the front panel, if absolutely necessary. 
Note that the user must alter and insert code into the subroutines for 
CONST, CONIN, CONOUT, READ, WRITE, and WAITIO subroutines. Storage is 
reserved for user-supplied code in these regions. The scratch area 
reserved in page zero (see Section 9) for the BIOS is used in this 
program, so that it could be implemented in ROM, if desired. 

Once operational, this skeletal version can be enhanced to print 
the initial sign-on message and perform better error recovery. The 
subroutines for LIST, PUNCH, and READER can be filled-out, and the 
lOBYTE function can be implemented. 
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8. A SAMPLE COLD START LOADER 

The program shown in Appendix D can serve as a basis for your cold 
start loader. The disk read function must De supplied by the user, 
and the program must be loaded somehow starting at location 0000, 
Note that space is reserved for your patch so that the total amount of 
storage required for the cold start loader is 128 bytes. Eventually, 
you will probably want to get this loader onto the first disk sector 
(track 0, sector 1), and cause your controller to load it into memory 
automatically upon system start-up. Alternatively, you may wish to 
place the cold start loader into ROM, and place it above the CP/M 
system. In this case, it will be necessary to originate the program 
at a higher address, and key-in a jump instruction at system start-up 
which branches to the loader. Subsequent warm starts will not require 
this key-in operation, since the entry point 'WBOOT' gets control, 
thus bringing the system in from disk automatically. Note also that 
the skeletal cold start loader has minimal error recovery, which may 
be enhanced on later versions. 
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9. RESERVED LOCATIONS IN PAGE ZERO 

Main memory page zero, between locations 00H and 0FFH, contains 
several segments of code and data which are used during CP/M 
processing. The code and data areas are given below for reference 
purposes. 

Locations Contents 

from to 

0000H - 0002H Contains a jump instruction to the warm start 

entry point at location 4A03H+b. This allows a 
simple programmed restart (JMP 0000H) or manual 
restart from the front panel. 

0003H - 0003H Contains the Intel standard lOBYTE, which is 

optionally included in the user's CBIOS, as 
described in Section 6, 

0004H - 0004H Current default drive number (0=A, . . . ,15=P) . 

0005H - 0007H Contains a jump instruction to the BDOS^and 

serves two purposes: JMP 0005H provides the 
primary entry point to the BDOS, as described in 
the manual "CP/M Interface Guide," and LHLD 
0006H brings the address field of the 
instruction to the HL register pair. This value 
is the lowest address in memory used by CP/M 
(assuming the CCP is being overlayed) . Note 
that the DDT program will change the address 
field to reflect the reduced memory size in 
debug mode. 

0008H - 0027H (interrupt locations 1 through 5 not used) 

0030H - 0037H (interrupt location 6, not currently used 

reserved) 

0038H - 003AH Restart 7 - Contains a jump instruction into the 

DDT or SID program when running in debug mode 
for programmed breakpoints, but is not otherwise 
used by CP/M. 

003BH - 003FH (not currently used - reserved) 

0040H - 004FH 16 byte area reserved for scratch by CBIOS, but 

is not used for any purpose in the distribution 
version of CP/M 

0050H - 005BH (not currently used - reserved) 

005CH - 007CH default file control block produced for a 

transient program by the Console Command 
Processor. 

007DH - 007FH Optional default random record position 
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0080H - 00FFH default 128 byte disk buffer (also filled with 

the command line when a transient is loaded 
under the CCP) . 



Note that this information is set-up for normal operation under 
the CP/M system, but can be overwritten by a transient program if the 
BDOS facilities are not required by the transient. 

If, for example, a particular program performs only simple I/O and 
must begin execution at location 0, it can be first loaded into the 
TPA, using normal CP/M facilities, with a small memory move program 
which gets control wnen loaded (the memory move program must get 
control from location 0100H, which is the assumed beginning of all 
transient programs) . The move program can then proceed to move the 
entire memory image down to location 0, and pass control to the 
starting address of the memory loan. Note that if the BIOS is 
overwritten, or if location (containing the warm start entry point) 
is overwritten, then the programmer must bring the CP/M system back 
into memory with a cold start sequence. 
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10. DISK PARAMETER TABLES. 

Tables are included in the BIOS which describe the particular 
characteristics of the disk subsystem used with CP/M. These tables 
can be either hand-coded, as shown in the sample CBIOS in Appendix C, 
or automatically generated using the DISKDEF macro library, as shown 
in Appendix B. The purpose here is to describe the elements of these 
tables. 

In general, each disk drive has an associated (16-byte) disk 
parameter header which both contains information about the disk drive 
and provides a scratchpad area for certain BDOS operations. The 
format of the disk parameter header for each drive is shown below 

Disk Parameter Header 

I XLT I 0000 I 0000 I 0000 IDIRBUFI DPB I CSV I ALV I 

16b 16b 16b 16b 16b 16b 16b 16b 

where each element is a word (16-bit) value. The meaning of each Disk 
Parameter Header (DPH) element is 

XLT Address of the logical to physical translation vector, 
if used for this particular drive, or the value 0000H 
if no sector translation takes place (i.e, the physical 
and logical sector numbers are the same) . Disk drives 
with identical sector skew factors share the same 
translate tables. 

0000 Scratchpad values for use within the BDOS (initial 
value is unimportant) . 

DIRBUF Address of a 128 byte scratchpad area for directory 
operations within BDOS. All DPH * s address the same 
scratchpad area. 

DPB Address of a disk parameter block for this drive. 
Drives with identical disk characteristics address the 
same disk parameter block. 

CSV Address of a scratchpad area used for software check 
for changed disks. This address is different for each 
DPH. 

ALV Address of a scratchpad area used by the BDOS to keep 
disk storage allocation information. This address is 
different for each DPH. 

Given n disk drives, the DPH ' s are arranged in a table whose first row 
of 16 bytes corresponds to drive 0, with the last row corresponding to 
drive n-1 . The table thus appears as 
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DPBASE: 

00 IXLT 001 0000 I 0000 I 0000 iDIRBUFlDBP 00|CSV 00|ALV 00 I 

01 IXLT 011 0000 I 0000 I 0000 IDIRBUFlDBP 01|CSV 01|ALV 01| 

(and so-forth through) 
n-llXLTn-li 0000 | 0000 | 0000 I DIRBUF I DBPn-1 I CSVn-1 I ALVn-1 I 

where the label DPBASE defines the base address of the DPH table. 

A responsibility of the SELDSK subroutine is to return the base 
address of the DPH for the selected drive. The following sequence of 
operations returns the table address^ with a 0000H returned if the 
selected drive does not exist. 



NDISKS 


EQU 


4 ;NUMBER OF DISK DRP 


SELDSK: 










; SELECT DISK GIVEN BY BC 




LXI 


H,0000H ; 


ERROR CODE 




MOV 


A,C ; 


DRIVE OK? 




CPI 


NDISKS ; 


CY IF SO 




RNC 




rRET IF ERROR 




;N0 


ERROR, CONTII 


vIUE 




MOV 


L,C 


; LOW (DISK) 




MOV 


H,B 


?HIGH(DISK) 




DAD 


H 


;*2 




DAD 


H 


;*4 




DAD 


H 


?*8 




DAD 


H 


;*16 




LXI 


D, DPBASE , 


►FIRST DPH 




DAD 


D 


;DPH(DISK) 




RET 







The translation vectors (XLT 00 through XLTn-1) are located 
elsewhere in the BIOS, and simply correspond one-for-one with the 
logical sector numbers zero through the sector count-1. The Disk 
Parameter Block (DPB) for each drive is more complex. A particular 
DPB, which is addressed by one or more DPH's, takes the general form 



I SPT iBSHlBLMlEXMl DSM | DRM I AL0 I ALl I CKS I OFF I 
16b 8b 8b 8b 16b 16b 8b 8b 16b 16b 



where each is a byte or word value, as shown by the "8b" or "16b 
indicator below the field. 



SPT 
BSH 



is the total number of sectors per track 

is the data allocation block shift factor, determined 
by the data block allocation size. 
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EXM is the extent mask, determined by the data block 
alj-ocation size and the number of disk blocks. 

DSM determines the total storage capacity of the disk drive 

DPM determines the total number of directory entries which 
can be stored on this drive AL0,AL1 determine reserved 
directory blocks. 

CKS is the size of the directory check vector 

OFF is the number of reserved tracks at the beginning of 
the (logical) disk. 

The values of BSH and BLM determine (implicitly) the data allocation 
size BLS, which is not an entry in the disk parameter block. Given 
that the designer has selected a value for BLS, the values of BSH and 
BLM are shown in the table below 



BLS 


BSH 


BLM 


1,024 


3 


7 


2,048 


4 


15 


4,096 


5 


31 


8,192 


6 


63 


16,384 


7 


127 



where all values are in decimal. The value of EXM depends upon both 
the BLS and whether the DSM value is less than 256 or greater than 
255, as shown in the following table 



BLS 


DSM 


< 


256 


DSM > 255 


1,024 









N/A 


2,048 




1 







4,096 




3 




1 


8,192 




7 




3 


16,384 




15 




7 



The value of DSM is the maximum data block number supported by 
this particular drive, measured in BLS units. The product BLS times 
(DSM+1) is the total number of bytes held by the drive and, of course, 
must be within the capacity of the physical disk, not counting the 
reserved operating system tracks. 

The DRM entry is the one less than the total number of directory 
entries, which can take on a 16-bit value. The values of AL0 and ALl , 
however, are determined by DRM. The two values AL0 and ALl can 
together be considered a string of 16-bits, as shown below. 
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I AL0 I ALl I 

I i I i I I I I I I I I I I I I I 
00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 

where position 00 corresponds to the high order bit of the byte 
labelled AL0 , and 15 corresponds to the low order bit of the byte 
labelled ALl. Each bit position reserves a data block for number of 
directory entries, thus allowing a total of 16 data blocks to be 
assigned for directory entries (bits are assigned starting at 00 and 
filled to the right until position 15) . Each directory entry occupies 
32 bytes, resulting in the following table 

BLS Directory Entries 



1,024 


32 


times 


# 


bits 


2,048 


64 


times 


# 


bits 


4,096 


128 


times 


# 


bits 


8,192 


256 


times 


# 


bits 


16,384 


512 


times 


# 


bits 



Thus, if DRM = 127 (128 directory entries), and BLS = 1024, then there 
are 32 directory entries per block, requiring 4 reserved blocks. In 
this case, the 4 high order bits of AL0 are set, resulting in the 
values AL0 = 0F0H and ALl = 00H. 

The CKS value is determined as follows: if the disk drive media 
is removable, then CKS = (DRM+l)/4, where DRM is the last directory 
entry number. If the media is fixed, then set CKS = (no directory 
records are checked in this case) . 

Finally, the OFF field determines the number of tracks which are 

skipped at the beginning of the physical disk. This value is 

automatically added whenever SETTRK is called, and can be used as a 

mechanism for skipping reserved operating system tracks, or for 

partitioning a large disk into smaller segmented sections. 

To complete the discussion of the DPS, recall that several DPH * s 
can address the same DPB if their drive characteristics are identical. 
Further, the DPB can be dynamically changed when a new drive is 
addressed by simply changing the pointer in the DPH since the BDOS 
copies the DPB values to a local area whenever the SELDSK function is 
invoked. 

Returning back to the DPH for a particular drive, note that the 
two address values CSV and ALV remain. Both addresses reference an 
area of uninitialized memory following the BIOS. The areas must be 
unique for each drive, and the size of each area is determined by the 
values in the DPB. 

The size of the area addressed by CSV is CKS bytes, which is 
sufficient to hold the directory check information for this particular 
drive. If CKS = (DRM+l)/4, then you must reserve (DRM+l)/4 bytes for 
directory check use. If CKS = 0, then no storage is reserved. 
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The size of the area addressed by ALV is determined by the 
maximum number of data blocks allowed for this particular disk, and is 
computed as (DSM/8)+l. 

The CBIOS shown in Appendix C demonstrates an instance of these 

tables for standard 8" single density drives. It may be useful to 

examine this program, and compare the tabular values with the 
definitions given above. 
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11. THE DISKDEF MACRO LIBRARY. 

A macro library is shown in Appendix F, called DISKDEF, which 
greatly simplifies the table construction process. You must have 
access to the MAC macro assembler, of course, to use the DISKDEF 
facility, while the macro library is included with all CP/M 2.0 
distribution disks. 

A BIOS disk definition consists of the following sequence of 
macro statements: 



M ACL IB 


DISKDEF 


. . . • . * 




DISKS 


n 


DISKDEF 


r . . . 


DISKDEF 


-L f * • . 


DISKDEF 


n-l 



ENDEF 

where the MACLIB statement loads the DISKDEF. LIB file (on the same 
disk as your BIOS) into MAC's internal tables. The DISKS macro call 
follows, which specifies the number of drives to be configured with 
your system, where n is an integer in the range 1 to 16. A series of 
DISKDEF macro calls then follow which define the characteristics of 
each logical disk, through n-l (corresponding to logical drives A 
through P) . Note that the DISKS and DISKDEF macros generate the 
in-line fixed data tables described in the previous section, and thus 
must be placed in a non-executable portion of your BIOS, typically 
directly following the BIOS jump vector. 

The remaining portion of your BIOS is defined following the 
DISKDEF macros, with the ENDEF macro call immediately preceding the 
END statement. The ENDEF (End of Diskdef) macro generates the 
necessary uninitialized RAM areas which are located in memory above 
your BIOS. 

The form of the DISKDEF macro call is 

DISKDEF dn,fsc,lsc, [skf] ,bls ,dks,dir ,cks, of s, [0] 

where 

dn is the logical disk number, to n-l 

fsc is the first physical sector number (0 or 1) 

Isc is the last sector number 

skf is the optional sector skew factor 

bis is the data allocation block size 

dir is the number of directory entries 

cks is the number of "checked" directory entries 

ofs is the track offset to logical track 00 

[0] is an optional 1.4 compatibility flag 

The value "dn" is the drive number being defined with this DISKDEF 
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macro invocation. The "fsc" parameter accounts for differing sector 
numbering systems, and is usually or 1. The "Isc" is the last 
numbered sector on a track. When present, the "skf" parameter defines 
the sector skew factor which is used to create a sector translation 
table according to the skew. If the number of sectors is less than 
256, a single-byte table is created, otherwise each translation table 
element occupies two bytes. No translation table is created if the 
skf parameter is omitted (or equal to 0) . The "bis" parameter 
specifies the number of bytes allocated to each data block, and takes 
on the values 1024, 2048, 4096, 8192, or 16384. Generally, 
performance increases with larger data block sizes since there are 
fewer directory references and logically connected data records are 
physically close on the disk. Further, each directory entry addresses 
more data and the BIOS-resident ram space is reduced. The "dks" 
specifies the total disk size in "bis" units. That is, if the bis = 
2048 and dks = 1000, then the total disk capacity is 2,048,000 bytes. 
If dks is greater than 255, then the block size parameter bis must be 
^^^^4.^^ than 1024. The value of "dir" is the total number of 

nay exceed 255, if desired. The "cks" 
e number of directory items to check on each 
ed internally to detect changed disks during 
system operation, where an intervening cold or warm start has not 
occurred (when this situation is detected, CP/M automatically marks 
the disk read/only so that data is not subsequently destroyed) . As 



^ ^ __ _,---^ - . -^ 

low. The "ofs" value determines the number of tracks to skip when 
this particular drive is addressed, which can be used to reserve 
additional operating system space or to simulate several logical 
drives on a single large capacity physical drive. Finally, the [0] 
parameter is included when file compatibility is required with 
versions of 1.4 which have been modified for higher density disks. 
This parameter ensures that only 16K is allocated for each directory 
record, as was the case for previous versions. Normally, this 
parameter is not included. 

For convenience and economy of table space, the special form 

DISKDEF i,j 

gives disk i the same characteristics as a previously defined drive j, 
A standard four-drive single density system, which is compatible with 
version 1.4, is defined using the following macro invocations: 
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DISKS 4 

DISKDEF 0,1,26,6,10 24,243,64,64,2 

DISKDEF 1,0 

DISKDEF 2,0 

DISKDEF 3,0 

• • • • 

ENDEF 

with all disks having the same parameter values of 26 sectors per 
track (numbered 1 through 26) , with 6 sectors skipped between each 
access, 1024 bytes per data block, 243 data blocks for a total of 243k 
byte disk capacity, 64 checked directory entries, and two operating 
system tracks. 

The DISKS macro generates n Disk Parameter Headers (DPH's), 
starting at the DPH table address DPBASE generated by the macro. Each 
disk header block contains sixteen bytes, as described above, and 
correspond one-for-one to each of the defined drives. In the four 
drive standard system, for example, the DISKS macro generates a table 
of the form: 

DPBASE EQU $ 

DPE0: DW XLT0,0 000H,0 00H,0 000H,DIRBUF,DPB0,CSV0,ALV0 

DPEl: DW XLT0 , 000H , 000H , 000H ,DIRBUF ,DPB0 ,CSV1 , ALVl 

DPE2: DW XLT0 , 00 00H , 000H , 0000H ,DIRBUF ,DPB0 ,CSV2 , ALV2 

DPE3: DW XLT0 , 000H , 0000H , 0000H ,DIRBUF ,DPB0 ,CSV3 ,ALV3 

where the DPH labels are included for reference purposes to show the 
beginning table addresses for each drive through 3. The values 
contained within the disk parameter header are described in detail in 
the previous section. The check and allocation vector addresses are 
generated by the ENDEF macro in the ram area following the BIOS code 
and tables. 

Note that if the "skf" (skew factor) parameter is omitted (or 
equal to 0) , the translation table is omitted, and a 0000H value is 
inserted in the XLT position of the disk parameter header for the 
disk. In a subsequent call to perform the logical to physical 
translation, SECTRAN receives a translation table address of DE 
0000H, and simply returns the original logical sector from BC in the 
HL register pair. A translate table ' . . , . 




XLT0: DB 1,7,13,19,25,5,11,17,23,3,9,15,21 
DB 2,8,14,20,26,6,12,18,24,4,10,16,22 

Following the ENDEF macro call, a number of uninitialized data 
areas are defined. These data areas need not be a part of the BIOS 
which is loaded upon cold start, but must be available between the 
BIOS and the end of memory. The size of the uninitialized RAM area is 
determined by EQU statements generated by the ENDEF macro. For a 
standard four-drive system, the ENDEF macro might produce 
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4C72 = BEGDAT EQU $ 
(data areas) 
4DB0 = ENDDAT EQU $ 
013C = DATSIZ EQU $-BEGDAT 

which indicates that uninitialized RAM begins at location 4C72H, ends 
at 4DB0H-1, and occupies 013CH bytes. You must ensure that these 
addresses are free for use after the system is loaded. 

After modification, you can use the STAT program to check your 
drive characteristics, since STAT uses the disk parameter block to 
decode the drive information. The STAT command form 

STAT d:DSK: 

decodes the disk parameter block for drive d (d=A,...,P) and displays 
the values shown below: 

r: 128 Byte Record Capacity 

k: Kilobyte Drive Capacity 

d: 32 Byte Directory Entries 

c: Checked Directory Entries 

e: Records/ Extent 

b: Records/ Block 

s: Sectors/ Track 

t: Reserved Tracks 

Three examples of DISKDEF macro invocations are shown below with 
corresponding STAT parameter values (the last produces a full 
8-megabyte system) . 

DISKDEF 0r 1,58, ,2048,256,128,128,2 
r=4096, k=512, d=128, c=128, e=256, b=16, s=58, t=2 

DISKDEF 0,1, 58,, 2048, 1024, 300, 0,2 
r=16384, k=2048, d=300, c=0 , e=128, b=16, s = 58, t=2 

DISKDEF 0,1,58, ,16384,512,128,128,2 
r=65536, k=8192, d=128, c=128, e=1024, b=128, s=58, t=2 
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12. SECTOR BLOCKING AND DEBLOCKING. 

Upon each call to the BIOS WRITE entry point, the CP/M BDOS 
includes information which allows effective sector blocking and 
deblocking where the host disk subsystem has a sector size which is a 
multiple of the basic 128-byte unit. The purpose here is to present a 
general-purpose algorithm which can be included within your BIOS which 
uses the BDOS information to perform the operations automatically. 

Upon each call to WRITE, the BDOS provides the following 
information in register C: 

= normal sector write 

1 = write to directory sector 

2 = write to the first sector 

of a new data block 

Condition occurs whenever the next write operation is into a 
previously written area, such as a random mode record update, when the 
write is to other than the first sector of an unallocated block, or 
when the write is not into the directory area. Condition 1 occurs 
when a write into the directory area is performed. Condition 2 occurs 
when the first record (only) of a newly allocated data block is 
written. In most cases, application programs read or write multiple 
128 byte sectors in sequence, and thus there is little overhead 
involved in either operation when blocking and deblocking records 
since pre-read operations can be avoided when writing records. 

Appendix G lists the blocking and deblocking algorithms in skeletal 
form (this file is included on your CP/M disk). Generally, the 
algorithms map all CP/M sector read operations onto the host disk 
through an intermediate buffer which is the size of the host disk 
sector. Throughout the program, values and variables which relate to 
the CP/M sector involved in a seek operation are prefixed by "sek," 
while those related to the host disk system are prefixed by "hst." 
The equate statements beginning on line 29 of Appendix G define the 
mapping between CP/M and the host system, and must be changed if other 
than the sample host system is involved. 

The entry points BOOT and WBOOT must contain the initialization 
code starting on line 57, while the SELDSK entry point must be 
augmented by the code starting on line 65. Note that although the 
SELDSK entry point computes and returns the Disk Parameter Header 
address, it does not physically selected the host disk' at this point 
(it is selected later at READHST or WRITEHST) . Further, SETTRK, 
SETTRK, and SETDMA simply store the values, but do not take any other 
action at this point. SECTRAN performs a trivial trivial function of 
returning the physical sector number. 

The principal entry points are READ and WRITE, starting on lines 
110 and 125, respectively. These subroutines take the place of your 
previous READ and WRITE operations. 

The actual physical read or write takes place at either WRITEHST 
or READHST, where all values have been prepared: hstdsk is the host 
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disk number^ hsttrk is the host track number, and hstsec is the host 
sector number (which may require translation to a physical sector 
number) , You must insert code at this point which performs the full 
host sector read or write into, or out of, the buffer at hstbuf of 
length hstsiz. All other mapping functions are performed by the 
algorithms. 

This particular algorithm was tested using an 80 megabyte hard 
disk unit which was originally configured for 128 byte sectors, 
producing approximately 35 megabytes of formatted storage. When 
configured for 512 byte host sectors, usable storage increased to 57 
megabytes, with a corresponding 400% improvement in overall response. 
In this situation, there is no apparent overhead involved in 
deblocking sectors, with the advantage that user programs still 
maintain the (less memory consuming) 128-byte sectors. This is 
primarily due, of course, to the information provided by the BDOS 
which eliminates the necessity for pre-read operations to take place. 
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0000 
ffff 

0000 



0000 = 
0000 = 

0806 = 

1880 = 

1600 = 

1603 = 

3000 

1880 = 
0002 = 
0031 = 
0019 = 
0018 = 



APPENDIX A: THE MDS COLD START LOADER 

MDS-800 Cold Start Loader for CP/M 2.0 



false 

true 

testing 



bias 



bias 

cpmb 

bdos 

bdose 

boot 

rboot 



bdosl 
ntrks 
bdoss 
bdos0 
bdosl 



Version 2.0 August, 1979 



equ 
equ 
equ 

if 

equ 

endif 

if 

equ 

endif 

equ 

equ 

equ 

equ 

equ 

org 

equ 
equ 
equ 
equ 
equ 





not false 

false 

testing 
03400h 

not testing 
0000h 

bias 

806h+bias 

1880h+bias 

1600h+bias 

boot+3 



;base of dos load 
;entry to dos for calls 
;end of dos load 
;cold start entry point 
;warni start entry point 



3000h 



;loaded here by hardware 



bdose-cprab 

2 

bdosl/128 

25 

bdoss-bdos0 



tracks to read 

# sectors in bdos 

# on track 

# on track 1 



f800 
ff0f 
0078 
0079 
007b 
007f 

0078 
0079 
007a 
00ff 
0003 
0004 
0100 



Tnon80 

rmon80 

base 

rtype 

rbyte 

reset 

• 

dstat 

ilow 

ihigh 

bsw 

recal 

readf 

stack 



equ 
equ 
equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 
equ 
equ 
equ 



0f800h 

0ff0fh 

078h 

base+1 

base+3 

base+7 

base 

base+1 

base+2 

0ffh 

3h 

4h 

100h 



intel monitor base 
restart location for mon80 
'base' used by controller 
result type 
result byte 
reset controller 

disk status port 

low iopb address 

high iopb address 

boot switch 

recalibrate selected drive 

disk read function 

use end of boot for stack 



3000 310001 



3003 
3005 



3007 



db79 
db7b 



dbff 
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rstart: 

Ixi 
; clear 

in 

in 
; check 
coldstart: 

in 

ani 
jnz 



sp,stack;in case of call to mon80 
disk status 

rtype 

rbyte 
if boot switch is off 



bsw 
coldstart 



02h , . ;switch on? 
oi 
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3006 d37f 



clear the controller 

out reset ;logic cleared 



3010 0602 
3012 214230 



mvi b^ntrks ;number of tracks to read 
Ixi h^iopb0 



start: 







• 


read f 


:irst/next track into cpmb 


3015 


7d 




mov 


a.l 


3016 


d379 




out 


ilow 


3018 


7c 




mov 


a,h 


3019 


d37a 




out 


ihigh 


301b 


db7 8 


wait0 : 


in 


dstat 


im 


?l?i30 




ani 
Dz 


4 
wait0 






7 

• 
t 


check 


disk status 


3022 


db79 




in 


rtype 


3024 


e603 




ani 


lib 


3026 


fe02 




cpi 


2 






7 


if 
cnc 
endif 
if 


testing 

rinon80 ;go to monitor 

not testing 


3028 


d20030 




jnc 
endif 


rstart ;retry the load 



302b 


db7b 




in 






• 


if no 


302d 


17 




ral 


302e 


dc0fff 




cc 


3031 


If 




rar 


3032 


e61e 




ani 






7 


if 
cnz 
endif 
if 


3034 


C20030 




jnz 






• 


endif 


3037 


110700 


• 


Ixi 


303a 


19 




dad 


303b 


05 




dcr 


303c 


C21530 


• 

7 


jnz 



303f C30016 



rbyte ? i/o complete^ check status 
if not ready, then go to mon80 

rmon80 ;not ready bit set 

;restore 
11110b ;over run/addr err/seek/crc 

testing 

rmon80 ;go to monitor 

not testing 

rstart ; retry the load 



d,iopbl ; length of iopb 

d ; addressing next iopb 

b ; count down tracks 

start 



jmp boot, print message, set-up jmps 
jmp boot 



parameter blocks 
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3042 80 iopb0: db 80h ;iocw, no update 

3043 04 db readf ;read function 

3044 19 db bdos0 ;# sectors to read trk 

3045 00 db ;track 

3046 02 db 2 ;start with sector 2, trk 

3047 0000 dw cpmb ;start at base of bdos 
0007 = iopbl equ $-iopb0 

3049 80 iopbl: db 80h 
304a 04 db readf 

304b 18 db bdosl ;sectors to read on track 1 

304c 01 db 1 ;track 1 

304d 01 db 1 ;sector 1 

304e 800c dw cpmb+bdos0*128 ;base of second rd 

3050 end 
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APPENDIX B: THE MDS BASIC I/O SYSTEM (BIOS) 



0014 = 



vers 



4a00 
3400 
3c06 
1600 
002c 
0002 
0004 
0080 
000a 



4a00 
4a03 
4a06 
4a09 



cpitib 

bdos 

cpml 

nsects 

offset 

cdisk 

buff 

retry 



c3b34a 
c3c34a 
c3614b 
c3644b 



wboote 



mds--800 i/o drivers for cp/m 2.0 
(four drive single density version) 

version 2.0 august, 1979 



equ 



20 



version 2.0 



copyright (c) 1979 
digital research 
box 579, pacific grove 
California, 93950 



org 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 

perfo 

boot 

wboot 

(boot 

const 



conin 

conou 

list 

punch 

reade 

home 



4a00h 

3400h 

3c06h 

$-cpmb 

cpml/128 

2 

0004h 

0080h 

10 



base of bios in 20k system 

base of cpm ccp 

base of bdos in 20k system 

length (in bytes) of cpm system 

number of sectors to load 

number of disk tracks used by cp 

address of last logged disk 

default buffer address 

max retries on disk i/o before e 



rm 



following functions 

cold start 

warm start (save i/o byte) 
and wboot are the same for mds) 
status 

00 if no character ready 
ff if character ready 
character in (result in reg-a) 
character out (char in reg-c) 
(char in reg-c) 



console 
reg-a = 
reg-a = 
console 
console 
list out 



punch out (char in reg-c) 

paper tape reader in (result to reg-a) 

move to track 00 



(the following calls set-up the io parameter bloc 
mds, which is used to perform subsequent reads an 
seldsk select disk given by reg-c (0,1,2...) 
settrk set track address (0p...76) for sub r/w 
setsec set sector address (1,...,26) 
setdma set subsequent dma address (initially 80h 

read/write assume previous calls to set i/o parms 
read read track/sector to preset dma address 
write write track/sector from preset dma addres 



4a0c c36a4b 



jump vector for 
jmp boot 
jmp wboot 
jmp const 
jmp conin 
jmp conou t 



indiviual routines 
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4a0f c36d4b 




jmp 


list 






4al2 c3724b 




jmp 


punch 




4al5 c3754b 




jmp 


reader 




4al8 c3784b 




jmp 


home 




4alb c37d4b 




jmp 


seldsk 




4ale c3a74b 




jmp 


settrk 




4a21 c3ac4b 




jmp 


setsec 




4a24 c3bb4b 




jmp 


setdma 




4a27 c3cl4b 




jmp 


read 




4a2a c3ca4b 




jmp 


wr ite 




4a2d c3704b 




jmp 


listst ;list 


status 


4a30 c3bl4b 




jmp 


sectran 






r 


maclib 


diskdef ;load 


the disk definition libr 






disks 


4 ;four 


disks 


4a33+= 


dpbase 


equ 


$ ;base 


of disk parameter blocks 


4a33+824a00 


dpe0 : 


dw 


xlt0,0000h 




translate table 


4a37+000000 




dw 


0000h,0000h 




scratch area 


4a3b+6e4c73 




dw 


dirbuf ,dpb0 




dir buff,parm block 


4a3f+0d4dee 




dw 


CSV0 ,alv0 




check, alloc vectors 


4a43+824a00 


dpel: 


dw 


xltl,0000h 




'translate table 


4a47+000000 




dw 


0000h,0000h 




•scratch area 


4a4b+6e4c73 




dw 


dirbuf ,dpbl 




fdir buff,parm block 


4a4f+3c4dld 




dw 


csvl ,alvl 




[Check, alloc vectors 


4a53+824a00 


dpe2: 


dw 


xlt2,0000h 




[translate table 


4a57+000000 




dw 


0000h,0000h 




[scratch area 


4a5b+6e4c73 




dw 


dirbuf ,dpb2 




fdir buff,parm block 


4a5f+6b4d4c 




dw 


csv2,alv2 




[Check, alloc vectors 


4a63+824a00 


dpe3: 


dw 


xlt3,0000h 




[translate table 


4a67+000000 




dw 


0000h,0000h 




[scratch area 


4a6b+6e4c73 




dw 


dirbuf ,dpb3 




[dir buff,parm block 


4a6f+9a4d7b 




dw 


csv3,alv3 




•check- alloc vectors 






diskdef 


0,1,26,6,1024 


,243, 64, 64, offset 


4a73+= 


dpb0 


equ 


$ 




[disk parm block 


4a73+la00 




dw 


26 




[sec per track 


4a75+03 




db 


3 




[block shift 


4a76+07 




db 


7 




[block mask 


4a77+00 




db 







[extnt mask 


4a78+f200 




dw 


242 




[disk size-1 


4a7a+3f00 




dw 


63 




[directory max 


4a7c+c0 




db 


192 




[alloc0 


4a7d+00 




db 







[ ^llocl 


4a7e+1000 




dw' 


16 




[Check size 


4a80+0200 




dw 


2 




[Offset 


4a82+= 


Xlt0 


equ 


$ 




[translate table 


4a82+01 




db 


1 




4a83+07 




db 


7 




4a84+0d 




db 


13 




4a85+13 




db 


19 




4a86+19 




db 
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4a87+05 




db 


5 




4a88+0b 




db 


11 




4a89+ll 




db 


17 




4a8a+17 




db 


23 




4a8b+03 




db 


3 
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4a8c+09 




db 


9 


4a8d+0f 




db 


15 


4a8e+15 




db 


21 


4a8f+02 




db 


2 


4a90+08 




db 


8 


4a91+0e 




db 


14 


4a92+14 




db 


20 


4a93+la 




db 
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4a94+06 




db 


6 


4a95+0c 




db 


12 


4a96+12 




db 


18 


4a97+18 




db 


24 


4a98+04 




db 


4 


4a99+0a 




db 


10 


4a9a+10 




db 


16 


4a9b+16 




db 
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diskdef 


1,0 


4a73+= 


dpbl 


equ 


dpb0 


001f+= 


alsl 


equ 


als0 


0010+= 


cssl 


equ 


CSS0 


4a82+= 


xltl 


equ 


Xlt0 






diskdef 


2,0 


4a73+= 


dpb2 


equ 


dpb0 


001f+= 


als2 


equ 


als0 


0010+= 


css2 


equ 


CSS0 


4a82+ = 


xlt2 


equ 


Xlt0 






diskdef 


3,0 


4a73+= 


dpb3 


equ 


dpb0 


001f+= 


als3 


equ 


als0 


0010+= 


css3 


equ 


CSS0 


4a82+= 


xlt3 


equ 


Xlt0 




• 


endef occurs 



00fd 
00fc 
00f3 
007e 



£800 
ff0f 
f803 
£806 
£809 
f80c 
f80f 
£812 



at 



;equivalent parameters 
;same allocation vector size 
;same checksum vector size 
;same translate table 

;eguivalent parameters 
;same allocation vector size 
;same checksum vector size 
;same translate table 

;equivalent parameters 
;same allocation vector size 
;same checksum vector size 
;same translate table 
end of assembly 



end o£ controller - independent code^ the remaini 
are tailored to the particular operating environm 

any system which di££ers £rom the 



be altered for 



revrt 
into 
icon 
inte 



mon8 
rmon8 
ci 
ri 

CO 

po 
lo 
csts 



the following code assumes the mds monitor exists 
and uses the i/o subroutines within the monitor 

we also assume the mds system has four disk drive 

equ 0fdh ; interrupt revert port 

equ 0fch ; interrupt mask port 

equ 0f3h ;interrupt control port 

equ 0111$1110b;enable rst (warm boot) ,rst 7 

mds monitor equates 

equ 0f800h ;mds monitor 

equ 0ff0fh ;restart mon80 (boot error) 

equ 0f803h ;console character to reg-a 

equ 0f806h ; reader in to reg-a 

equ 0f809h ;console char from c to console o 

equ 0f80ch ;punch char from c to punch devic 

equ 0f80fh ;list from c to list device 

equ 0f812h ;console status 00/ff to register 
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; disk ports and commands 

0078 = base equ 78h ;base of disk command io ports 

0078 = dstat equ base ;disk status (input) 

0079 = rtype equ base+1 ;result type (input) 
007b = rbyte equ base+3 ;result byte (input) 

0079 = ilow equ base+1 ;iopb low address (output) 

007a = ihigh equ base+2 ; iopb high address (output) 

0004 = readf equ 4h ;read function 

0006 = writf equ 6h ;write function 

0003 = recal equ 3h ;recalibrate drive 

0004 = iordy equ 4h ; i/o finished mask 
000d = cr equ 0dh ;carriage return 
000a = If equ 0ah ;line feed 

■ 

signon: ;signon message: xxk cp/m vers y.y 

4a9c 0d0a0a db cr,lf,lf 

4a9f 3230 db *20* ;sample memory size 

4aal 6b20.43f db 'k cp/m vers"' 

4aad 322e30 db vers/10+ ' ' , ' . ' , vers mod 10+'0' 

4ab0 0d0a00 db cr,lf,0 

9 

boot: ;print signon message and go to ccp 

; (note: mds boot initialized iobyte at 0003h) 

4ab3 310001 Ixi sp,buff+80h 

4ab6 219c4a Ixi h, signon 

4ab9 cdd34b call prmsg ;print message 

4abc af xra a ;clear accumulator 

4abd 320400 sta cdisk ;set initially to disk a 

4ac0 c30f4b jmp gocpm ;go to cp/m 

* 

wboot:; loader on track 0, sector 1, which will be skippe 

; read cp/m from disk - assuming there is a 128 byt 

; start. 

• 

4ac3 318000 Ixi sp,buff yusing dma - thus 80 thru ff ok f 

7 

4ac6 0e0a mvi c, retry ;max retries 

4ac8 c5 push b 

wboot0: ;enter here on error retries 

4ac9 010034 Ixi b,cpmb ;set dma address to start of disk 

4acc cdbb4b call setdma 

4acf 0e00 mvi c,0 ;boot from drive 

4adl cd7d4b call seldsk 

4ad4 0e00 mvi c,0 

4ad6 cda74b call settrk ;start with track 

4ad9 0e02 mvi c^2 ;start reading sector 2 

4adb cdac4b call setsec 

; read sectors, count nsects to zero 

4ade cl pop b ;10-error count 

4adf 062c mvi b, nsects 
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rdsec: 


; read 


next sector 


4ael 


c5 


push 


b 


;save sector count 


4ae2 


cdcl4b 


call 


read 




4ae5 


c2494b 


jnz 


booterr 


;retry if errors occur 


4ae8 


2a6c4c 


Ihld 


iod 


; increment dma address 


4aeb 


118000 


Ixi 


d,128 


;sector size 


4aee 


19 


dad 


d 


; incremented dma address in 


4aef 


44 


mov 


b,h 




4a£0 


4d 


mov 


c,l 


; ready for call to set dma 


4afl 


cdbb4b 


call 


setdma 




4af4 


3a6b4c 


Ida 


ios 


;sector number just read 


4af7 


fela 


cpi 


26 


;read last sector? 


4af9 


da054b 


jc 


rdl 






• 
1 


must 


be sector 


26, zero and go to next track 


4afc 


3a6a4c 


Ida 


lot 


;get track to register a 


4aff 


3c 


inr 


a 




4b00 


4f 


mov 


c,a 


;readY for call 


4b01 


cda74b 


call 


settrk 




4b04 


af 


xra 


a 


;clear sector number 


4b05 


3c rdl: 


inr 


a 


;to next sector 


4b06 


4f 


mov 


c,a 


; ready for call 


4b07 


cdac4b 


call 


setsec 




4b0a 


cl 


pop 


b 


; recall sector count 


4b0b 


05 


dcr 


b 


;done? 


4b0c 


c2el4a 


jnz 


rdsec 





4b0f 
4bl0 
4bl2 
4bl4 
4bl5 
4bl7 
4bl9 
4blb 
4blc 



f3 

3el2 

d3fd 

af 

d3fc 

3e7e 

d3fc 

af 

d3f3 



; done with the load, reset default buffer address 
gocpm: ; (enter here from cold start boot) 
: enable rst0 and rst? 



; initialize command 



di 




mvi 


a,12h 


out 


revrt 


xra 


a 


out 


into 


mvi 


a,inte 


out 


into 


xra 


a 


out 


icon 



;cleared 

?rst0 and rst7 bits 



; interrupt control 



on 



4ble 

4b21 



018000 
cdbb4b 



set default buffer address to 80h 
Ixi b,buff 
call setdma 



4b24 
4b26 
4b29 
4b2c 
4b2f 
4b32 
4b35 
4b38 
4b3b 
4b3e 



3ec3 

320000 

21034a 

220100 

320500 

21063c 

220600 

323800 

2100f8 

223900 



reset monitor entry points 



mvi 


a,:mp 


sta 





Ixi 


hpwboote 


shld 


1 


sta 


5 


Ixi 


h,bdos 


shld 


6 


sta 


7*8 


Ixi 


h,mon80 


shld 


7*8+1 



;jmp wboot at location 00 



?jmp bdos at location 5 

;jmp to mon80 (may have been chan 



leave iobyte set 
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4b41 
4b44 
4b45 
4b46 



4b49 
4b4a 
4b4b 

4b4e 
4b4f 



3a0400 
4f 
fb 
C30034 



cl 
0d 
ca524b 

c5 
c3c94a 



previously selected disk was b, send parameter to 
ida cdisk ;last logged disk number 
mov c,a ;send to ccp to log it in 

ei 

jmp cpmb 

error condition occurred, print message and retry 



booterr : 



pop b 

dcr c 

jz booter0 

try again 

push b 

jmp wboot0 



; recall counts 



booter0 



4b52 
4b55 
4b58 



215b4b 
cdd34b 
c30fff 



otherwise too many retries 

Ixi h^bootmsg 

call prmsg 

jmp rmon80 ;mds hardware monitor 



bootmsg 



4b5b 3f626f4 



db 



•?boot' ,0 



4b61 c312f8 



const: ;console status to reg-a 
; (exactly the same as rods call) 
jmp csts 



conin: ;console character to reg-a 

4b64 cd03f8 call ci 

4b67 e67f ani 7fh ;remove parity bit 

4b69 c9 ret 



4b6a c309f8 



4b6d c30ff8 



conout 



list 



listst: 



4b70 
4b71 



af 
c9 



4b72 c30cf8 



4b75 c306f8 



punch 



reader : 



;console character from c to console out 
jmp CO 

;list device out 

(exactly the same as mds call) 

jmp lo 



;return list status 

xra a 

ret ;always not ready 

;punch device out 

(exactly the same as mds call) 

jmp po 

; reader character in to reg-a 
(exactly the same as mds call) 
jmp r i 



home: ;move to home position 
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treat as track 00 seek 



4b78 0e00 
4b7a c3a74b 



mvi 
jmp 



c,0 
settrk 



seldsk: ;select disk given by register c 

4b7d 210000 Ixi h,0000h ;return 0000 if error 

4b80 79 mov a,c 

4b81 fe04 cpi ndisks ;too large? 

4b83 d0 rnc ;leave hi = 0000 



4b84 
4b86 
4b89 
4b8a 
4b8c 
4b8d 
4b90 

4b92 
4b93 
4b96 
4b97 
4b99 
4b9a 

im 

4b9e 
4b9f 
4ba0 
4bal 
4ba2 
4ba5 
4ba6 



e602 

32664c 

79 

e601 

b7 

ca924b 

3e30 

47 

21684c 

7e 

e6cf 

b0 

77 

^^00 

29 

29 

29 

29 

11334a 

19 

c9 



setdrive 



am 

sta 

mov 

ani 

ora 

jz 

mvi 

mov 

Ixi 

mov 

ani 

ora 

mov 

mov 
mvi 

dad 

dad 

dad 

dad 

Ixi 

dad 

ret 



10b 

dbank 

a,c 

lb 

a 

setdrive 

a, 00110000b 



;00 00 for drive 0,1 and 10 10 fo 

;to select drive bank 

;00, 01, 10, 11 

;mds has 0,1 at 78, 2,3 at 88 

;result 00? 



;selects drive 1 in bank 



;save the function 
;io function 



b,a 

h, iof 

a,m 

11001111b ;mask out disk number 

b ;mask in new disk number 

m,a ;save it in iopb 

h 

h 

h 

h 

d,dpbase 

d ;hl=disk header table address 



;hl=disk number 

;*2 

;*4 

;*8 

;*16 



settrk : 



4ba7 216a4c 
4baa 71 
4bab c9 



; set 
Ixi 
mov 
ret 



track address 
h, iot 

m,c 



given by c 



4bac 
4baf 
4bb0 



4bbl 
4bb3 
4bb4 
4bb5 
4bb6 



m' 



a c 



216b4c 

71 

c9 



eb 

09 

7e 

326b4c 

6 



setsec 



sectran 



; set 
Ixi 
mov 
ret 



mvi 

xchg 

dad 

mov 

sta 

mov 
ret 



sector number 
h,ios 

m,c 



given by c 



; translate sector be using table 



b,0 

b 

a,m 
ios 
l,a 



at de 
number 
to hi 



;double precision sector 
;translate table address 
; translate (sector) address 
;translated sector number to a 



;return sector number in 1 



setdma: ;set dma address given by regs b,c 
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4bbb 


69 




mov 


IrC 


4bbc 


60 




mov 


h,b 


4bbd 


226c4c 




shld 


iod 


4bc0 


c9 




ret 








read: 


;read 


next disk 


4bcl 


0604 




mvi 


c^readf 


4bc3 


cde04b 




call 


setf unc 


4bc6 


cdf04b 




call 


waitio 


4bc9 


c9 




ret 





record (assuming disk/trk/sec/dma 
;set to read function 

;perform read function 

;maY have error set in reg-a 



4bca 
4bcc 
4bcf 
4bd2 



4bd6 
4bd7 
4bd8 
4bdb 
4bdc 
4bdd 



0e06 
cde04b 
cdf04b 
c9 



4bd3 7e 
4bd4 b7 
4bd5 c8 



e5 

4f 

cd6a4b 

el 

23 

c3d34b 



write: ;disk write function 
mvi c^writf 

call setfunc ;set to write function 
call waitio 
ret ;maY have error set 



prmsg 



utility subrou 
;print message 



mov 

ora 

rz 

more 

push 

mov 

call 

pop 

inx 

imp 



to 



a^m 
a 

print 

h 

c,a 

conout 

h 

h 

prmsg 



tines 
at h,l to 

; zero? 



setfunc 



4be0 
4be3 
4be4 
4be6 
4be7 



4be8 
4bea 
4bed 
4bee 
4bef 



21684c 

7e 

e6f8 

bl 

77 



e620 

216b4c 

b6 

77 

c9 



set function f 
Ixi h,iof 
mov a^m 
ani 111110 
ora c 
mov m,a 
the mds-800 co 
mask the bit f 
ani 001000 
Ixi h^ios 
ora m 
mov m,a 
ret 



or next i/o (command in reg-c) 
;io function address 
;get it to accumulator for maskin 
00b ; remove previous command 
;set to new command 
; replaced in iopb 
ntroller req's disk bank bit in sec 
rom the current i/o function 
00b ;mask the disk select bit 
;address the sector selec 
;select proper disk bank 
;set disk select bit on/o 



4bf0 0e0a 



4bf2 cd3f4c 
4bf5 cd4c4c 

4bf8 3a664c 



waitio: 



mvi 



c, retry ;max retries before perm error 



rewait: 

; start the i/o function and wait for completion 



call 
call 

Ida 



mtype ;in rtype 

inbyte ;clears the controller 



dbank 



;set bank flags 
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4bfb 
4bfc 
4bfe 
4c00 
4c03 
4c05 
4c06 
4c08 



4c0b 
4c0d 
4c0e 

4cl0 
4cl3 
4cl5 



b7 

3e67 

064c 

c20b4c 

d379 

78 

d37a 

c3104c 



d389 

78 

d38a 



cd594c wait0 

e604 

cal04c 



4cl8 cd3f4c 



4clb 
4cld 



4c20 
4c21 



4c24 
4c27 
4c28 
4c2b 
4c2c 
4c2e 



fe02 
ca324c 



b7 
c2384c 



cd4c4c 

17 

da324c 

If 

e6f e 

c2384c 



ora a ;zero if drive 0,1 and nz 

mvi a,iopb and 0ffh ;low address for iopb 

mvi b,iopb shr 8 ;high address for iopb 

jnz iodrl ;drive bank 1? 

out ilow ;low address to controlle 

mov a,b 

out ihigh ;high address 

jmp wait0 



iodrl: ;drive bank 1 



out 
mov 
out 

call 

ani 

jz 



ilow+10h 

a,b 

ihigh+10h 

instat 

iordy 

wait0 



;to wait for complete 
;88 for drive bank 10 



;wait for completion 
; ready? 



check io completion ok 

call intype ;must be io complete (00) 

00 unlinked i/o complete, 01 linked i/o comple 

10 disk status changed 11 (not used) 

cpi 10b ; ready status change? 

jz wready 

must be 00 in the accumulator 

ora a 

jnz werror ;some other condition, re 



check i/o error bits 

call inbyte 

ral 

jc wready 

rar 

ani 11111110b 

jnz werror 



;unit not ready 
;any other errors? 



4c31 c9 



read or write is ok, accumulator contains zero 
ret 



4c32 
4c35 



cd4c4c 
c3384c 



wready 



werror 



;not ready, treat as error for now 
call inbyte ;clear result 

jmp trycount 



byte 



;return hardware malfunction (crc, track, seek, e 
the mds controller has returned a bit in each pos 
of the accumulator, corresponding to the conditio 



deleted data (accepted as ok above) 
crc error 
seek error 

address error (hardware malfunction) 
data over/under flow (hardware malfunct 
write protect (treated as not ready) 
write error (hardware malfunction) 
not ready 
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4c38 
4c39 



0d 
c2f24b 



4c3c 3e01 
4c3e c9 



trycount 



(accumulator bits are numbered 76543210) 

it may be useful to filter out the various condit 

but we will get a permanent error message if it i 

recoverable. in any case, the not ready conditio 

treated as a separate condition for later improve 

' • 

register c contains retry count, decrement 'til z 

dcr c 

jnz rewait ;for another try 

cannot recover from error 
mvi a,l ;error code 
ret 



4c3f 
4c42 
4c43 
4c46 
4c48 
4c49 
4c4b 



3a664c 

b7 

c2494c 

db79 

c9 

db89 

c9 



; intype, inbyte, instat read drive bank 00 or 10 
intype: Ida dbank 

a 

intypl ;skip to bank 10 

rtype 



ora 
jnz 
in 
ret 
intypl: in 
ret 



rtype+10h 



;78 for 0,1 88 for 2,3 



4c4c 3a664c 

4c4f b7 

4c50 c2564c 

4c53 db7b 

4c55 c9 

4c56 db8b 

4c58 c9 



inbyte: Ida 
ora 
jnz 
in 
ret 

inbytl: in 
ret 



dbank 
a 

inbytl 
rbyte 

rbyte+10h 



4c59 3a664c 
4c5c b7 
4c5d c2634c 
4c60 db78 
4c62 c9 
4c63 db88 
4c65 c9 



instat: Ida 
ora 
jnz 
in 
ret 

instal: in 
ret 



4c66 


00 


dba 
iop 


4c67 


80 




4c68 


04 


iof 


4c69 


01 


ion 


4c6a 


02 


lot 


4c6b 


01 


ios 


4c6c 


8000 


iod 



dbank 
a 

instal 
dstat 

dstat+10h 



data 
db 



areas (must be in ram) 

;disk bank 00 if drive 
; 10 if drive 

;io parameter block 
db 80h 
db readf 

db 1 ;number of sectors 
db offset ; track number 
db 1 ; sector number 
dw buff ;io address 



define ram areas for bdos operation 



;normal i/o operation 
;io function, initial 

to 



0rl 
2,3 



read 
read 
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endef 




4c6e+= 


beg oat 


equ 


$ 


4c6e+ 


dirbuf : 


ds 


128 


4cee+ 


alv0; 


ds 


31 


4d0d+ 


CSV0: 


ds 


16 


4dld+ 


alvl: 


ds 


31 


4d3c+ 


csvl: 


ds 


16 


4d4c+ 


alv2: 


ds 


31 


4d6b+ 


csv2: 


ds 


16 


4d7b+ 


alv3: 


ds 


31 


4d9a+ 


csv3: 


ds 


16 


4daa+= 


enddat 


equ 


$ 


013c+= 


datsiz 


equ 


$-begdat 


4daa 




end 





;directory access buffer 



49 



APPENDIX C: A SKELETAL CBIOS 



0014 = 



0000 
3400 
3c06 
4a00 
0004 
0003 

4a00 
002c 



4a00 
4a03 
4a06 
4a09 
4a0c 
4a0f 
4al2 
4al5 
4al8 
4alb 
4ale 
4a21 
4a24 
4a27 
4a2a 
4a2d 
4a30 



c39c4a 
c3a64a 
c3114b 
c3244b 
c3374b 
c3494b 
c34d4b 
c34f4b 
c3544b 
c35a4b 
c37d4b 
c3924b 
c3ad4b 
c3c34b 
c3d64b 
c34b4b 
c3a74b 



4a33 734a00 
4a37 000000 
4a3b f04c8d 
4a3f ec4d70 

4a43 734a00 
4a47 000000 
4a4b f04c8d 
4a4f fc4d8f 

4a53 734a00 
4a57 000000 
4a5b f04c8d 
4a5f 0c4eae 



msize 



bias 

ccp 

bdos 

bios 

cdisk 

iobyte 



nsects 



wboote: 



dpbase: 



skeletal cbios for first level of cp/m 2.0 altera 

equ 20 ;cp/in version memory size in kilo 

"bias" is address offset from 3400h for memory sy 
than 16k (referred to as "b" throughout the text) 



equ 

equ 
equ 
equ 
equ 

org 
equ 

jump 

jmp 

jmp 

jmp 

jmp 

jmp 

jnip 

jmp 

jmp 

jmp 

jmp 

jmp 

jmp 

jmp 

jmp 

jmp 

jmp 

jmp 



(msize-20) *1024 
3400h+bias ;base 
ccp+806h ;base 
ccp+1600h ;base 
0004h ;current disk 



of ccp 
of bdos 
of bios 

number 0=a 



15=p 



0003h 



; Intel i/o byte 



bios ;origin of this program 
($-ccp)/128 ;warm start sector count 



vector for 
boot 
wboot 
const 
conin 
conout 
list 
punch 
reader 
home 
seldsk 
settrk 
setsec 
setdma 
read 
write 
listst 
sectran 



individual subroutines 
cold start 
warm start 
console status 
console character in 
console character out 
list character out 
punch character out 
reader character out 
move head to home positi 
select disk 
set track number 
set sector number 
set dma address 
read disk 
write disk 
return list status 
sector translate 



fixed data tables for four-drive standard 

ibm-compatible 8" disks 

disk parameter header for disk 00 

dw trans, 0000h 

dw 0000h,0000h 

dw dirbf^dpblk 

dw chk00,all00 

disk parameter header for disk 01 

dw trans, 0000h 

dw 0000h,0000h 

dw dirbf,dpblk 

dw chk01,all01 

disk parameter header for disk 02 

dw trans, 0000h 

dw 0000h,0000h 

dw dirbf,dpblk 

dw chk02,all02 
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4a63 734a00 
4a67 000000 
4a6b f04c8d 
4a6f lc4ecd 



disk parameter header for disk 03 
dw trans, 0000h 
dw 0000h,0000h 
dw dirbf^dpblk 
dw chk03,all03 



sector translate vector 



mi mm 


4a7b 


170309 


4a7f 


150208 


4a83 


141a06 


4a87 


121804 


4a8b 


1016 


4a8d 


la00 


4a8f 


03 


4a90 


07 


4a91 


00 


4a92 


f200 


4a94 


3f00 


4a96 


C0 


4a97 


00 


4a98 


1000 


4a9a 


0200 



trans 



dpblk 



i^ 


h]s]h 


'.h 


111818^1 hl',1'A 


db 


23,3,9, 


15 


;sectors 9,10,11,12 


db 


21,2,8, 


14 


;sectors 13,14,15,16 


db 


20,26,6 


,12 


;sectors 17,18,19,20 


db 


18,24,4 


,10 


;sectors 21,22,23,24 


db 


16,22 




;sectors 25,26 


;diE 


ik parameter 


block. 


common to all disks 


dw 


26 




;sectors per track 


db 


3 




;block shift factor 


db 


7 




;block mask 


db 







;null mask 


dw 


242 




;disk size-1 


dw 


63 




;directory max 


db 


192 




;alloc 


db 







;alloc 1 


dw 


16 




;check size 


dw 


2 




;track offset 


end 


of fixed tables 





boot: 



individual subroutines to perform each function 
;simplest case is to just perform parameter initi 



4a9c 


af 




xra 


a 




;zero in the accum 


4a9d 


320300 




sta 


iobyte 




;clear the iobyte 


4aa0 


320400 




sta 


cdisk 




;select disk zero 


4aa3 


c3ef4a 


• 


jmp 


gocpm 




;initialize and go to cp/ 






wboot: 


; simplest case 


is to 


read the disk until all sect 


4aa6 


318000 




Ixi 


sp,80h 




;use space below buffer f 


4aa9 


0e00 




mvi 


c,0 




;select disk 


4aab 


cd5a4b 




call 


seldsk 






4aae 


cd544b 




call 


home 




;go to track 00 


4abl 


062c 


f 


mvi 


b,nsects 


;b counts # of sectors to 


4ab3 


0e00 




mvi 


c,0 




;c has the current track 


4ab5 


1602 




mvi 


d,2 




;d has the next sector to 






• 

r 


note that we begin by 


reading track 0, sector 2 s 






• 


contains the cold sta 


rt loader, which is skipped 


4ab7 


210034 




Ixi 


h,ccp 




;base of cp/m (initial lo 






loadl: 


;load 


one more 


sector 




4aba 


c5 




push 


b 


; save 


sector count, current track 


4abb 


d5 




push 


d 


; save 


next sector to read 


4abc 


e5 




push 


h 


;save 


dma address 


4abd 


4a 




mov 


c,d 


;get 


sector address to register c 


4abe 


cd924b 




call 


setsec 


; set 


sector address from register 


4acl 


cl 




pop 


b 


; reca 


11 dma address to b,c 
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4ac2 c5 
4ac3 cdad4b 



4ac6 cdc34b 
4ac9 fe00 
4acb c2a64a 



4ace el 

4acf 118000 

4ad2 19 

4ad3 dl 

4ad4 cl 

4ad5 05 

4ad6 caef4a 



4ad9 14 
4ada 7a 
4adb felb 
4add daba4a 



4ae0 1601 
4ae2 0c 



4ae3 c5 
4ae4 d5 
4ae5 e5 
4ae6 cd7d4b 
4ae9 el 
4aea dl 
4aeb cl 
4aec c3ba4a 



gocpm 



4aef 


3ec3 


mvi 


a,0c3h 


4afl 


320000 


sta 





4af4 


21034a 


Ixi 


h,wboo 


4af7 


220100 


shld 


1 


4afa 


320500 


sta 


5 


4a fd 


21063c 


Ixi 


h,bdos 


4b00 


220600 


shld 


6 


4b03 


018000 


Ixi 


b,80h 


4b06 


cdad4b 


call 


setdma 


4b09 


; 

fb 


ei 




4b0a 


3a0400 


Ida 


cdisk 


4b0d 


4f 


mov 


c,a 


4b0e 


C30034 


jmp 


ccp 



push b ; replace on stack for later recal 
call setdma ;set ditia address from b,c 

drive set to 0, track set, sector set, dma addres 

call read 

cpi 00h ;any errors? 

jnz wboot ;retrY the entire boot if an erro 

no error, move to next sector 

pop h ; recall dma address 

Ixi d,128 ;dma=dma+128 

dad d ;new dma address is in h,l 

pop d ; recall sector address 

pop b ; recall number of sectors remaini 

dcr b ; sectors=sectors-l 

jz gocpm ; transfer to cp/m if all have bee 

more sectors remain to load, check for track chan 

inr d 

mov a,d ;sector=27?, if so, change tracks 

cpi 27 

jc loadl ;carry generated if sector<27 

end of current track, go to next track 

mvi d,l ;begin with first sector of next 

inr c ; track=track+l 

save register state, and change tracks 
push b 



;track address set from register 

;for another sector 

end of load operation, set parameters and go to c 

a,0c3h ;c3 is a jmp instruction 
; for jmp to wboot 

;wboot entry point 
;set address field for jmp at 

;for jmp to bdos 
h,bdos ;bdos entry point 

;address field of jump at 5 to bd 

;default dma address is 80h 



;enable the interrupt system 

;get current disk number 

;send to the ccp 

;go to cp/m for further processin 



push 


d 


push 


h 


call 


settrk 


pop 


h 


pop 


d 


pop 


b 


jmp 


loadl 
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4bll 

4b21 3e00 
4b23 c9 



const: 



simple i/o handlers (must be filled in by user) 
in each case, the entry point is provided, with s 
to insert your own code 

;console status, return 0ffh if character ready, 
ds 10h ;space for status subroutine 
mvi a,0 0h 
ret 



conin: ;console character into register a 

4b24 ds 10h ;space for input routine 

4b34 e67f ani 7fh ;strip parity bit 

4b36 c9 ret 

conout: ;console character output from register c 

4b37 79 mov a,c ;get to accumulator 

4b38 ds 10h ;space for output routine 

4b48 c9 ret 

list: ;list character from register c 

4b49 79 mov a,c ;character to register a 

4b4a c9 ret ;null subroutine 

listst: ;return list status (0 if not ready, 1 if ready) 

4b4b af xra a ;0 is always ok to return 

4b4c c9 ret 

punch: ;punch character from register c 

4b4d 79 mov a,c ;character to register a 

4b4e c9 ret ?null subroutine 



4b4f 3ela 
4b51 e67f 
4b53 c9 



4b54 0e00 
4b56 cd7d4b 
4b59 c9 



reader: ;read character into register a from reader devic 

mvi a,lah ;enter end of file for now (repla 

ani 7fh ;remember to strip parity bit 
ret 



i/o drivers for the disk follow 

for now, we will simply store the parameters away 

in the read and write subroutines 

home: ;move to the track 00 position of current drive 
; translate this call into a settrk call with param 

mvi c,0 ;select track 

call settrk 

ret ;we will move to 00 on first read 



seldsk: ;select disk given by register c 

4b5a 210000 Ixi h,0000h ;error return code 

4b5d 79 mov a,c 

4b5e 32ef4c sta diskno 

4b61 fe04 cpi 4 ;must be between and 3 
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4b63 d0 



4b64 

4b6e 
4b71 
4b72 
4b74 
4b75 
4b76 
4b77 
4b78 
4b7b 
4b7c 



3aef4c 

6f 

2600 

29 

29 

29 

29 

11334a 

19 

c9 



rnc 

disk 

ds 

compute 

Ida 

itiov 

mvi 

dad 

dad 

dad 

dad 

Ixi 

dad 

ret 



;no carry if 4^5,... 
number is in the proper range 

10 ;space for disk select 

disk parameter header address 



proper 
diskno 

h,0 

h 

h 

h 

h 

d,dpbase 



l=disk number 0,1,2,3 

high order zero 

*2 



*4 
*8 
*16 



(size of each header) 



;hl=.dpbase (diskno*16) 



4b7d 
4b7e 
4b81 
4b91 



settrk: 



79 
32e94c 

c9 



; set 

mov 

sta 

ds 

ret 



track given 
a,c 
track 
10h 



by register c 



;space for track select 



4b92 
4b93 
4b96 
4ba6 



setsec 



79 
32eb4c 

c9 



? set 

mov 

sta 

ds 

ret 



sector given by register c 
a,c 

sector 
10h 



;space for sector select 



sectran 



4ba7 
4ba8 
4ba9 
4baa 
4bac 



4bad 
4bae 
4baf 
4bb2 
4bc2 



eb 

09 

6e 

2600 

c9 



69 
60 
22ed4c 



setdma 



c9 



; translate the sector given by be using the 

; translate table given by de 

hl=. trans 
hl=. trans (sector) 
1 = trans (sector) 
hl= trans (sector) 
with value in hi 

given by registers b and c 
low order address 
;high order address 
save the address 
space for setting 



xchg 
dad 


b ; 


mov 


1 ,^ ; 


mvi 


h,0 ; 


ret 


; 


;set 


dma address 


mov 


l,c ; 


mov 


h,b 


shld 


dma ad ; 


ds 


10h ; 


ret 





the dma addres 



4bc3 

4bd3 c3e64b 



read: ;perform read operation (usually this is similar 
; so we will allow space to set up read command, th 
; common code in write) 

ds 10h ;set up read command 

jmp waitio ;to perform the actual i/o 



4bd6 



write: ;perform a write operation 

ds 10h ;set up write commanu 



waitio: ;enter here from read and write to perform the ac 
; operation. return a 00h in register a if the ope 
; properly, and 01h if an error occurs during the r 
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4be6 

4ce6 3e01 
4ce8 c9 



4ce9 


track: 


ds 


2 


4ceb 


sector: 


ds 


2 


4ced 


ditiaad: 


ds 


2 


4cef 


diskno: 

• 


ds 


1 




• 


scratch 


ram area 


4cf0 = 


begdat 


equ 


$ 


4cf0 


dirbf : 


ds 


128 


4d70 


all00: 


ds 


31 


4d8f 


all01: 


ds 


31 


4dae 


all02: 


ds 


31 


4dcd 


all03: 


ds 


31 


4dec 


chk00: 


ds 


16 


4dfc 


chk01: 


ds 


16 


4e0c 


chk02: 


ds 


16 


4elc 


chk03: 


ds 


16 


4e2c = 


7 

enddat 


equ 


$ 


013c = 


datsiz 


equ 


$-begdat 


4e2c 




end 





in this case^ we have saved the disk number in 'd 

the track number in 'track' (0-76 
the sector number in 'sector' (1- 
the dma address in 'dmaad' (0-655 

ds 256 ; space reserved for i/o drivers 

mvi a,l ;error condition 

ret ;replaced when filled-in 

the remainder of the cbios is reserved uninitiali 
data area, and does not need to be a part of the 
system memory image (the space must be available, 
however, between "begdat" and "enddat"). 



; two bytes for expansion 
; two bytes for expansion 
jdirect memory address 
;disk number 0-15 

for bdos use 
beginning of data area 
scratch directory area 



allocation vector 
allocation vector 
allocation vector 

allocation vector 
check vector 
check vector 1 
check vector 2 
check vector 3 

end of data area 
size of data area 
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APPENDIX D: A SKELETAL GETSYS/PUTSYS PROGRAM 

; combined getsys and putsys programs from Sec 4. 
; Start the programs at the base of the TPA 



0100 
0014 



msize 



org 
equ 



0100h 
20 



; size of cp/m in Kbytes 



; ''bias" is the amount to add to addresses for > 20k 
; (referred to as "b" throughout the text) 



0000 
3400 
3c00 
4a00 



bias equ (msize-20) *1024 

ccp equ 3400h+bias 

bdos equ ccp+0800h 

bios equ ccp+1600h 



getsys programs tracks and 1 to memory at 
3880h + bias 



register 
a 
b 
c 

d,e 
h,l 
sp 



usage 
(scratch register) 
track count (0...76) 
sector count (1.».26) 
(scratch register pair) 
load address 
set to stack address 



0100 
0103 
0106 



318033 
218033 
0600 



0108 0e01 



gstart: 



rd$trk: 
rd$sec: 



010a 
010d 
0110 
0111 
0112 
0113 
0115 



cd0003 

118000 

19 

0c 

79 

felb 

da0a01 



Ixi 
Ixi 
mvi 

mvi 

call 

Ixi 

dad 

inr 

mov 

cpi 

jc 



sp,ccp-0080h 

h,ccp-0080h 

b,0 

c.l 

read$sec 

d,128 

d 

c 

a,c 

27 

rdsec 



start of getsys 
convenient plac 
set initial loa 
start with trac 
read next track 
each track star 

get the next se 
offset by one s 

(hl=hl+128) 
next sector 
fetch sector nu 

and see if la 
<- do one more 



; arrive here at end of track, move to next track 



0118 04 

0119 78 
011a fe02 
011c da0801 



mr 
mov 
cpi 
jc 



b 

a,b 
2 
rd$trk 



track = track+1 
check for last 
track = 2 ? 
<, do another 



arrive here at end of load, halt for lack of anything b 



011f fb 
0120 76 



ei 
hit 
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putsys program, places memory image starting at 

3880h + bias back to tracks and 1 

start this program at the next page boundary 



0200 



org 



($+0100h) and 0ff00h 



put$sys 



0200 


318033 






Ixi 


sp,ccp-0080h 


0203 


218033 






Ixi 


h,ccp-0080h 


0206 


0600 


wr 


$trk: 


mvi 


b,0 


0208 


0601 


wr 


$sec: 


mvi 


c,l 


020a 


cd0004 






call 


wr ite$sec 


020d 


118000 






Ixi 


d,128 


0210 


19 






dad 


d 


0211 


0c 






inr 


c 


0212 


79 






mov 


a,c 


0213 


felb 






cpi 


27 


0215 


da0a02 






jc 


wr$sec 






• 

r 


arrive here 


at end of tra 


0218 


04 






inr 


b 


0219 


78 






mov 


a,b 


021a 


fe02 






cpi 


2 


021c 


da0802 






jc 


wr$trk 



; convenient plac 
; start of dump 
; start with trac 

; start with sect 

write one secto 
length of each 
<hl>=<hl> + 128 
<c> = <c> + 1 
see if 

past end of t 
no, do another 



track = track+1 
see if 

last track 
no, do another 



021f 
0220 



fb 
76 



done with putsys, halt for lack of anything bette 



ei 
hit 



0300 



; user supplied subroutines for sector read and write 

; move to next page boundary 

org ($+0100h) and 0ff00h 

read$sec 

read the next sector 
track in <b>, 
sector in <c> 
dmaaddr in <hl> 



0300 c5 

0301 e5 



0302 

0342 el 

0343 cl 



push 
push 



; user defined read operation goes here 
ds 64 



pop 
pop 
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0344 c9 ret 

0400 org ($+0100h) and 0ff00h ; another page bo 
wr ite$sec: 

; same parameters as read$sec 

0400 c5 push b 

0401 e5 push h 

; user defined write operation goes here 

0402 ds 64 

0442 el pop h 

0443 cl pop b 

0444 c9 ret 

7 end of getsys/putsys program 

0445 end 
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APPENDIX E: A SKELETAL COLD START LOADER 



this is a sample cold start loader which, when modified 
resides on track 00, sector 01 (the first sector on the 
diskette) . we assume that the controller has loaded 
this sector into memory upon system start-up (this pro- 
gram can be keyed-in, or can exist in read/only memory 
beyond the address space of the cp/m version you are 
running) . the cold start loader brings the cp/m system 
into memory at "loadp" (3400h + "bias'*). in a 20k 
memory system, the value of "bias" is 0000h, with large 
values for increased memory sizes (see section 2). afte 
loading the cp/m system, the clod start loader branches 
to the "boot" entry point of the bios, which begins at 
"bios" + "bias." the cold start loader is not used un- 
til the system is powered up again, as long as the bios 
is not overwritten. the origin is assumed at 0000h, an 
must be changed if the controller brings the cold start 
loader into another area, or if a read/only memory area 
is used. 



0000 



org 







base of ram in cp/m 



0014 = 

0000 = 

3400 = 

4a00 = 

0300 = 

4a00 = 

1900 = 

0032 = 



msize 


equ 


bias 


equ 


ccp 


equ 


bios 


equ 


biosl 


equ 


boot 


equ 


size 


equ 


sects 


equ 



20 




; min mem size in kbytes 


(msize-20)*1024 


; offset from 20k system 


3400h+bias 




; base of the ccp 


ccp+1600h 




; base of the bios 


0300h 




; length of the bios 


bios 






bios+biosl- 


-ccp 


; size of cp/m system 


size/128 




; # of sectors to load 



begin the load operation 



cold: 



0000 010200 


Ixi 


b,2 


0003 1632 


mvi 


d, sects 


0005 210034 


Ixi 


h,ccp 



b=0 , c=sector 2 
d=# sectors to load 
base transfer address 



Isect 



load the next sector 



insert inline code at this point to 
read one 128 byte sector from the 
track given in register b, sector 
given in register c, 
into the address given by <hl> 

branch to location "cold" if a read error occurs 
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i(icic-kic*i(i(*ititiiifieie'k*ic*i(ieicicis*'kiticir'k1cicic'ki(it*'k*'k'k'kieieititititit 
•k 

* user supplied read operation goes here... 
************************************************* 



0008 c36b00 
000b 



jmp past$patch 
ds 60h 



; remove this when patche 



006b 15 
006c ca004a 



past$patch: 

; go to next sector if load is incomplete 

dcr d ; sects=sects-l 

jz boot ; head for the bios 



more sectors to load 

we aren't using a stack, so use <sp> as scratch registe 
to hold the load address increment 



006f 318000 


Ixi 


sp,128 


0072 39 


dad 


sp 


0073 0c 


inr 


c 


0074 79 


mov 


a,c 


0075 felb 


cpi 


27 


0077 da0800 


jc 


Isect 



; 128 bytes per sector 

; <hl> = <hl> + 128 

; sector = sector + 1 

; last sector of track? 

; no, go read another 



; end of track, increment to next track 



007a 


0601 


ravi 


c,l 


007c 


04 


inr 


b 


007d 


C30800 


jmp 


Isect 


0080 




end 





sector = 1 
track = track + 1 
for another group 
of boot loader 
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APPENDIX F: CP/M DISK DEFINITION LIBRARY 

CP/M 2.0 disk re-definition library 

Copyright (c) 1979 

Digital Rabearch 

Box 579 

Pacific Grove, CA 

93950 

CP/M logict'l disk drives are defined using the 
macros given below, where the sequence of calls 
is: 

disks a 

diskdef paraineter-list-0 

diskdef parameter-list-l 

• • • 

diskdef parameter-list-n 
endef 

where n is the number of logical disk drives attached 
to the CP/M system, and parameter-list-i defines the 
characteristics of the ith drive (i=0 ,1 , . . . ,n-l) 

each parameter-list-i takes the form 

dn,f5C,lsc, [skf] ,bls,dks,dir,cks,ofs, [0] 



wher 

dn 

f sc 

Isc 

skf 

bis 

dks 

dir 

cks 

of s 

[0] 



is 
is 
is 
is 
is 
is 
is 
is 
is 
is 



the disk number 0,1,,.., n-1 
tne first sector number (usually or 1) 
the last sector number on a track 
optional "skew factor" for sector translate 
tne data block size (1024 ,2048 ,... ,16384) 
disk size in bis increments (word) 
directory elements (word) 
dir elements to checksum 
tracks to skip (word) 
which forces 16K/directory en 



tne 
tne 
the 
the 
an 



number of 

number of 

number of 

optional 



for convenience, the form 

dn,dm 
defines disk dn as having the same characteristics as 
a previously defined disk dm. 

a standard four drive CP/M system is defined by 

disks 4 

diskdef 0,1,26,6,1024,243,64,64,2 

dsk set 

rept 3 

dsk set dsk+1 

diskdef %dsk,0 

endm 

endef 

the value of "begdat" at the end of assembly defines t 
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61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
8 7 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 



dskhdr 
dpe&dn 



disks 

• • 

ndisks 

dpbase 

■ • 

9 9 

dsknxt 



dsknxt 



dpbhdr 
dpb&dn 



ddb 

• ■ 

9 r 



ddw 



gcd 



gcdm 
gcdn 
gcdr 

gcdx 
gcdr 



beginning of the uninitialize ram area above the bios, 
while the valine of "enddat" defines the next location 
following the end of the data area. the size of this 
area is given by the value of "datsiz" at the end of t 
assembly. note that the allocation vector will be qui 
large if a large disk size is defined with a small bio 
size. 



macro 

define 

dw 

dw 

dw 

dw 

endm 



dn 
a single disk 
xlt&dn,0000h 
0000h,0000h 
dirbuf, dpb&dn 
csv&dn^aiv&dn 



header list 

; translate table 
;scratch area 
;dir buff,parm block 
;check, alloc vectors 



macro nd 

define nd disks 

set nd ;;for later reference 

equ $ ;base of disk parameter blocks 

generate the nd elements 

set 

rept nd 

dskhdr %dsknxt 

set dsknxc+1 

endm 

endm 



macro 
equ 

endm 



dn 



;disk parm block 



macro data, comment 
define a db statement 
db data 
endm 

macro data, comment 
define a dw statement 
dw data 
endm 



comment 



comment 



macro m,n 

greatest common divisor of m,n 

produces value gcdn as result 

(used in sector translate table generation) 



set 

set 

set 

rept 

set 

set 

if 

exitm 

endif 



m 

n 



65535 

qcdm/gcdn 

gcdm - gcdx*gcdn 

gcdr = 



, ;variable for m 
; ;var iable for n 
; ;variable for r 
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109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 



gcdm 
gcdn 



set 

set 

endm 

endm 



gcdn 
gcdr 



r 

diskdef macro dn,fsc,lsc,skf,bls,dksVdir,ckSrbfs,kl6 
; ; generate the set statements for later tables 

nul Isc 

disk dn s^me as previous fsc 
dpb&fsc ;3quivalent parameters 
als&fsc ;same allocation vector size 
cssStfsc ;same checksum vector size 
xlt&fsc ;same translate table 



dpb&dn 
ais&dn 
css&dn 
xlt&dn 



secmax 

sectors 

als&dn 

als&dn 

css&dn 

bikval 
blkshf 
blkmsk 



blkshf 
blkmsk 
bikval 



bikval 
extmsk 



f r 

extmsk 
bikval 



extmsk 



extmsk 



d i r r em 



if 

current 

equ 

equ 

equ 

equ 

else 

set 

set 

set 

if 

set 

endif 

set 

generate 



Isc-(fsc) ;;sectors 0,,. secmax 

secmax+1 ; ;number of sectors 

(dks)/8 ;;size of allocation vector 

( (dks) mod t») ne 

als&dn+l 



(cks) /4 ; ;number 
the block shift 



of checksum elements 

value 

of sectors/block 

right 0*s in bikval 
;j:ills with l*s from right 
Tonce for each bit position 



; number 
;counts 



set bls/128 

set 

set 

rept 16 

if" blkval=l 

exitm 

endif 

otherwise, high order 1 not found yet 

set blkshf+1 

set (blkmsk shl 1) or 1 

set blkval/2 

endm 

generate the extent mask 



bls/1024 

; ;f ill 

16 

blkval=l 



byte 

;;number of kilobytes/block 
from right with 1 ' s 



set 

set 

rept 

if 

exitm 

endif 

otherwise more to shift 

set (extmsk shl 1) or 

set blkval/2 

endm 

may be 

if 

set 

endif 

may be 

if 

set 

endif 

now generate directory reservation bit vector 

set dir ;;# remaining to process 



double 

(dks) 
(extmsk 



byte allocation 
> 256 

1) 



optional 
not nul 
kl6 



shr 

[0] 
kl6 



in last position 
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164: dirbks set bls/32 ;;number of entries per block 

165: dirblk set ;;fill with I's on each loop 

166: rept 16 

167: if dirrem=0 

168: exitm 

169: endif 

170: ; ; not complete, iterate once again 

171: ;; shift right and add 1 high order bit 

172: dirblk set (dirblk shr i) or b000h 

173: if dirrem > dirbks 

174: dirrem set dirrem-dirbks 

175: else 

176: dirrem set 

177: endif 

178: endm 

179: dpbhdr dn ; ;ganerate equ $ 

180: ddw %sectors, < ; sec per track> 

181: ddb %blkshf , < ; blcck ' shif t> 

182: ddb %blkmsk ,< ;blcck mask> 

183: ddb %extmsk , < ; extnt mask> 

184: ddw % (dks) -1 , < ; uisk size-l> 

185: ddw % (dir ) -1 , < ;airectorY max> 

186: ddb %dirblk shr 8,<;alloc0> 

187: ddb %dirblk ana 0f f h, < ; allocl> 

188: ddw % (cks) /4 ,<; check size> 

189: ddw %of s, < ; of f set> 

190: ;; generate the translate table, if requested 

191: if nul skf 

192: xlt&dn equ ;no xlate taDle 

193: else 

194: if skf = 

195: xlt&dn equ ;no xlate table 

196: else 

197: ;; generate the translate taole 

198: nxtsec set ;;aext sector to fill 

199: nxtbas set ;;mcves by one on overflow 

200: gcd %sectors,skf 

201: ;; gcdn = gcd( sectors, skew) 

202: neltst set sectors/gcdn 

203: ;; neltst is number of elements to generate 

204: ;; before we overlap oievious elements 

205: nelts set neltst ;;ccunter 

206: xlt&dn equ $ ;translate table 

207: rept sectors ; ;once for each sector 

208: if" sectors < 256 

209: ddb %nxtsec+ ( f sc) 

210: else 

211: ddw %nxtsec+(f sc) 

212: endif 

213: nxtsec set nxtsec+(skf) 

214: if nxtser >= sectors 

215: nxtsec set nxtsec-sectors 

216: endif 

217: nelts set nelts-1 

218: if nelts = 
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219 


: nxtbas 


set 


nxtbas+1 


220' 


! nxtsec 


set 


nxtbas 


221: 


nelts 


set 


neltst 


222; 




endif 




223; 




endm 




224; 




endif 


;;end of nul fac test 


225 




endif 


; ;end of nul bis test 


226, 




endm 




227: 


• 






228: 


defds 


macro 


lab, space 


229: 


lab: 


ds 


space 


230: 




endm 




231: 


■ 
f 






232: 


Ids 


macro 


lb,dn,val 


233: 




defds 


lb&dn,%val&dn 


234: 




endm 




235: 


• 






236: 


endef 


macro 




237: 


• • 

f 9 


generate the necessary ram data areas 


238: 


begdat 


equ 


$ 


239: 


dirbuf : 


ds 


128 ;directory access buf 


240: 


dsknxt 


set 





241: 




rept 


ndisks ; ;once for eacn disk 


242: 




Ids 


alv,%dsknxt ,als 


243: 




Ids 


csv,%dsknxt ,css 


244: 


dsknxt 


set 


dsknxt+1 


245: 




endm 




246: 


enddat 


equ 


$ 


247: 


datsiz 


equ 


$-begdat 


248: 


• • 

9 9 


db at 


this point forces hex record 


249; 




endm 
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APPENDIX G: BLOCKING AND DEBLOCKING ALGORITHMS. 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



***************************************************** 

* * 

* Sector Deblocking Algorithms for CP/M 2.0 * 

* * 

***************************************************** 



smask 



@y 
@x 



utility macro to compute sector mask 

macro hblk 
;; compute log2(hblk), return @x as result 
;? (2 ** @x = hblk on return) 

set hblk 

set 

count right shifts of @y until = 1 

rept 8 

if @y = 1 

exitm 

endif 

@y is not 1, shift right one position 

set @y shr 1 

set @x + 1 

endm 

endm 

***************************************************** 

* * 

* CP/M to host disk constants * 

* * 

***************************************************** 



@y 
@x 



blksiz equ 

hstsiz equ 

hstspt equ 

hstblk equ 

cpmspt equ 

secmsk equ 

smask 

secshf equ 



2048 

512 

20 

hstsiz/128 

hstblk * hstspt 

hstblk-1 

hstblk 

@x 



CP/M allocation size 
host disk sector size 
host disk sectors/trk 
CP/M sects/host buff 
CP/M sectors/track 
sector mask 
compute sector mask 
log2 (hstblk) 



***************************************************** 

* * 

* BDOS constants on entry to write * 

* * 
***************************************************** 

wrall equ ;write to allocated 



wrdir 
wrual 



equ 
equ 
equ 



;write to directory 
;write to unallocated 



***************************************************** 

* * 

* The BDOS entry points given below show the * 

* code which is relevant to deblocking only. * 

* * 
***************************************************** 
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54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 



dpbase 

boot: 
wboot: 



seldsk 



settrk: 



setsec 



setdma 



DISKDEF macro, or hand coded tables go here 
egu $ ;disk param block base 



;enter here on system boot to initialize 



xra 

sta 
sta 
ret 



a 

hstact 

unacnt 



;0 to accumulator 
;host buffer inactive 
;clear unalloc count 



;select disk 



mov 

sta 

mov 

mvi 

rept 

dad 

endm 

Ixi 

dad 

ret 



a,c 

sekdsk 

l,a 

h,0 

4 

h 

d, dpbase 
d 



; selected disk number 
;seek disk number 
;disk number to HL 

;multiply by 16 



;base of parm block 
;hl=.dpb(curdsk) 



;set track given by registers BC 

mov h,b 

mov l,c 

shld sektrk ;track to seek 

ret 



;set sector given by register c 

mov a,c 

sta seksec ;sector to seek 

ret 



;set dma address given by BC 

mov h,b 

mov l,c 

shld dma ad r 

ret 



sectran: 



; translate sector number BC 
mov h,b 
mov l,c 
ret 
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104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 



itieit*i(icieici(*itic'kit'ki(iciei(icitici(icici(itiiicieic*icifieic1(1c-kicitit*ititi(ititititit'kic 
* * 

* The READ entry point takes the place of * 

* the previous BIOS defintion for READ. * 

* * 

**************************************************** 

read: 

;read the selected CP/M sector 

mvi a,l 

sta readop ;read operation 

sta rsflag ;must read data 

mvi a,wrual 

sta wrtype ;treat as unalloc 

jmp rwoper ;to perform the read 

itititicie*itifiiiti(i(*i<i(i(i(iti(ititi<ie*iiic*i(i(iei(iei(i(i(iticicici(*ic*i(-kicicic*icicitit 

* * 

* The WRITE entry point takes the place of * 

* the previous BIOS defintion for WRITE. * 

* * 

**************************************************** 

write: 

;write the selected CP/M sector 

xra a ?0 to accumulator 

sta readop ;not a read operation 

mov a,c ;write type in c 

sta wrtype 

cpi wrual ;write unallocated? 

jnz chkuna ;check for unalloc 



chkuna 



write to unallocated, set parameters 

mvi a,blksiz/128 ;next unalloc recs 

sta unacnt 

Ida sekdsk ;disk to seek 

sta unadsk ;unadsk = sekdsk 

Ihld sektrk 

shld unatrk ;unatrk = sectrk 

Ida seksec 

sta unasec ;unasec = seksec 



;check for write to unallocated sector 

Ida unacnt ;any unalloc remain? 

ora a 

jz alloc ;skip if not 



more unallocated records remain 

dcr a 

sta unacnt 

Ida sekdsk 

Ixi h, unadsk 

cmp m 

jnz alloc 

disks are the same 



; unacnt = unacnt-1 

;same disk? 

; sekdsk = unadsk? 
;skip if not 
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159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 



Ixi 


h,unatrk 


call 


sektrkcmp 


jnz 


alloc 


tracks 


are the same 


Ida 


seksec 


Ixi 


h,unasec 


cmp 


m 


jnz 


alloc 



;sektrk = unatrk? 
;skip if not 



;same sector? 

;seksec = unasec? 
;skip if not 



match, move to next sector for future ref 



inr 
mov 
cpi 
jc 



m 

a,m 

cpmspt 
noovf 



overflow to next track 
mvi m,0 
Ihld unatrk 
inx h 
shld unatrk 



; unasec = unasec+1 
;end of track? 
;count CP/M sectors 
?skip if no overflow 



; unasec = 
;unatrk = unatrk+1 



noovf 



;match found, mark as unnecessary read 

xra a ;0 to accumulator 

sta rsflag ;rsflag = 

jmp rwoper ;to perform the write 



alloc 



;not an unallocated record, requires pre-read 
xra a ;0 to accum 

sta unacnt ;unacnt = 

inr a ;1 to accum 

sta rsflag ;rsflag = 1 

* Common code for READ and WRITE follows * 

***************************************************** 
rwoper: 

;enter here to perform the read/write 

;zero to accum 
;no errors (yet) 
;compute host sector 

;carry = 
;shift right 

;host sector to seek 



;host active flag 
;always becomes 1 



xra 


a 


sta 


erflag 


Ida 


seksec 


rept 


secshf 


ora 


a 


rar 




endm 




sta 


sekhst 


active 


host sector? 


Ixi 


h,hstact 


mov 


a,m 


mvi 


m,l 
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214: 




ora 


a 




;was it already? 


215! 




jz 


filhst 




;fill host if not 


216! 












217! 




host 


buffer active, same as seek buffer? 


218! 




Ida 


sekdsk 






219! 




Ixi 


h,hstdsk 




;same disk? 


220! 




cmp 


m 




;sekdsk = hstdsk? 


221: 




jnz 


nomatch 






222! 


• 










223! 




same 


disk, same track? 


224! 




Ixi 


h,hsttrk 






225! 




call 


sektrkcmp 




;sektrk = hsttrk? 


226! 




jnz 


nomatch 






227! 


• 










228; 




same 


disk, same track 


, same buffer? 


229; 




Ida 


sekhst 






230' 




Ixi 


h,hstsec 




; sekhst = hstsec? 


231; 




cmp 


m 






232; 




jz 


match 




;skip if match 


233; 


• • 










234 


: nomatch 


• 
• 








235' 




;proper disk, but 


not 


correct sector 


236 




Ida 


hstwrt 




;host written? 


237 




ora 


a 






238 




cnz 


wr itehst 




;clear host buff 


239 


• • 










240 


: filhst: 










241 




;maY 


have to fill 


the 


host buffer 


242 




Ida 


sekdsk 






243 




sta 


hstdsk 






244 




Ihld 


sektrk 






245 




shld 


hsttrk 






246 




Ida 


sekhst 






247 




sta 


hstsec 






248 




Ida 


rsflag 




;need to read? 


249 




ora 


a 






250 




cnz 


readhst 




;yes, if 1 


251 




xra 


a 




;0 to accum 


252 




sta 


hstwrt 




;no pending write 


253 












254 


: match: 










255 




;copy data to or from 


buffer 


256 




Ida 


seksec 




;mask buffer numbe 


257 




ani 


secmsk 




;least signif bits 


258 




mov 


Ira 




;ready to shift 


259 




mvi 


h,0 




;double count 


260 




rept 


7 




;shift left 7 


261 




dad 


h 






262 




endm 








263 


■ • 


hi has relative host 1 


Duffer address 


264 




Ixi 


d,hstbuf 






265 




dad 


d 




;hl = host address 


266 




xchg 






;now in DE 


267 




Ihld 


dmaadr 




;get/put CP/M data 


268 




mvi 


c,128 




; length of move 



70 



269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
29 7 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 



Ida 


readop 


ora 


a 


jnz 


rwmove 



rwmove 



;which way? 
;skip if read 



write operation, mark and switch direction 

mvi a,l 

sta hstwrt ;hstwrt = 1 

xchg ;source/dest swap 



;C initially 128, DE is source, HL is dest 

Idax d ;source character 

inx d 

mov m,a ;to dest 

inx h 

dcr c ;loop 128 times 

jnz rwmove 

data has been moved to/from host buffer 

Ida wrtype ;write type 

cpi wrdir ;to directory? 

Ida erflag ;in case of errors 

rnz ;no further processing 

clear host buffer for directory write 

ora a ;errors? 

;skip if so 

a ;0 to accum 

hstwrt ;buffer written 

wr itehst 

erflag 



rnz 

xra 

sta 

call 

Ida 

ret 



***************************************************** 

* * 

* Utility subroutine for 16-bit compare * 

* * 

***************************************************** 

sektrkcmp: 

;HL = .unatrk or .hsttrk, compare with sektrk 

xchg 

Ixi h, sektrk 

Idax d ;low byte compare 

cmp m ;same? 

rnz ;return if not 
; low bytes equal, test high Is 

inx d 

inx h 

Idax d 

cmp m ;sets flags 

ret 
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321 
322 
323 
324 
325 
326 
327 
328 
3 29 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 



***************************************************** 

* * 

* WRITEHST performs the physical write to * 



the host disk, READHST reads the physical 
disk. 



***************************************************** 

wr itehst: 

;hstdsk = host disk #, hsttrk = host track #, 
;hstsec = host sect #. write "hstsiz'' bytes 
;from hstbuf and return error flag in erflag. 
;return erflag non-zero if error 
ret 

readhst: 

;hstdsk = host disk #, hsttrk = host track #, 
;hstsec = host sect #. read "hstsiz" bytes 
;into hstbuf and return error flag in erflag. 
ret 

***************************************************** 

* * 

* Unitialized RAM data areas * 

* * 
************************************* ^ *************** 



sekdsk: ds 

sektrk: ds 

seksec: ds 

• 
f 

hstdsk: ds 

hsttrk: ds 

hstsec: ds 

• 

sekhst: ds 

hstact: ds 

hstwrt: ds 

• 

unacnt: ds 

unadsk: ds 

unatrk: ds 

unasec: ds 

• 

erflag: ds 

rsflag: ds 

readop: ds 

wrtype: ds 

dmaadr: ds 

hstbuf: ds 



1 
2 

1 

1 
2 
1 

1 

1 
1 

1 

1 
2 

1 

1 
1 
1 
1 
2 
hstsiz 



seek disk number 
seek track number 
seek sector number 

host disk number 
host track number 
host sector number 

seek shr secshf 
host active flag 
host written flag 

unalloc rec cnt 
last unalloc disk 
last unalloc track 
last unalloc sector 

error reporting 
read sector flag 
1 if read operation 
write operation type 
last dma address 
host buffer 
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371 
372 
373 
374 
375 
376 



***************************************************** 

* * 

* The ENDEF macro invocation goes here * 

* * 

***************************************************** 
end 
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